Macro Edge Flange Help

Hello

I typed the macro code for our standard sheet metal parts but still I couldn't finish it. Could you help me to add edge flange to my sheet metal parts. You can see picture and codes below

Macro Codes;

Private Sub CommandButton1_Click()

Dim swApp As SldWorks.SldWorks
Dim SwModel As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Set swApp = Application.SldWorks

'Ölçüler Girişi
Dim Kenar1 As Double
Dim Kenar2 As Double
Kenar1 = CDbl(TextBox1.Text) / 1000
Kenar2 = CDbl(TextBox2.Text) / 1000

' Delik Merkezleri
M1 = (Kenar1 / 2) - 0.018
M2 = (Kenar2 / 2) - 0.018
M3 = (Kenar1 / 2) - 0.018
M4 = -1 * (Kenar2 / 2) + 0.018
M5 = -1 * (Kenar1 / 2) + 0.018
M6 = -1 * (Kenar2 / 2) + 0.018
M7 = -1 * (Kenar1 / 2) + 0.018
M8 = (Kenar2 / 2) - 0.018

' Delik Merkezine göre çaplar
D1 = M2 - 0.003
D2 = M4 - 0.003
D3 = M6 - 0.003
D4 = M8 - 0.003

' Yeni Dosya
Dim swSheetWidth As Double
swSheetWidth = 0
Dim swSheetHeight As Double
swSheetHeight = 0
Set SwModel = swApp.NewDocument("C:\EVEREST EPDM\EPDM TASLAKLAR\SW\Part.prtdot", 0, swSheetWidth, swSheetHeight)
Dim swPart As PartDoc
Set swPart = SwModel
swApp.ActivateDoc2 "Part2", False, longstatus
Set SwModel = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = SwModel.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized

' Çizim Oluştur
Set SwModel = swApp.ActiveDoc
boolstatus = SwModel.Extension.SelectByID2("Üst Düzlem", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
SwModel.SketchManager.InsertSketch True
boolstatus = SwModel.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstToRectEntity, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)
boolstatus = SwModel.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swSketchAddConstLineDiagonalType, swUserPreferenceOption_e.swDetailingNoOptionSpecified, True)

Dim vSkLines As Variant
vSkLines = SwModel.SketchManager.CreateCenterRectangle(0, 0, 0, Kenar1 / 2, Kenar2 / 2, 0)
SwModel.ClearSelection2 True
Dim skSegment As Variant
Set skSegment = SwModel.SketchManager.CreateCircle(M1, M2, 0#, M1, D1, 0#)
Set skSegment = SwModel.SketchManager.CreateCircle(M3, M4, 0#, M3, D2, 0#)
Set skSegment = SwModel.SketchManager.CreateCircle(M5, M6, 0#, M5, D3, 0#)
Set skSegment = SwModel.SketchManager.CreateCircle(M7, M8, 0#, M7, D4, 0#)

' Sac Oluştur
Dim customBendAllowanceData As Object
Set customBendAllowanceData = SwModel.FeatureManager.CreateCustomBendAllowance()
customBendAllowanceData.KFactor = 0.3
Dim myFeature As Object
Set myFeature = SwModel.FeatureManager.InsertSheetMetalBaseFlange2(0.001, False, 0.002, 0.02, 0.01, False, 0, 0, 1, customBendAllowanceData, False, 0, 0.0001, 0.0001, 0.5, True, False, True, True)
SwModel.ClearSelection2 True

' Edge Flange

????

End Sub