'This is macro that I want convert to vb.net api but I don'tknowstep for convert.
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As ObjectSub
main()Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
boolstatus = Part.Extension.SelectByID2("Top Plane","PLANE",0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("","EDGE",0.03860635673715, -1.423190234391E-04,-0.01110330567985, True, 0,Nothing, 0)
Part.ClearSelection2
Trueboolstatus = Part.Extension.SelectByID2("TopPlane","PLANE", 0, 0, 0, False, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("","EDGE",0.03860635673715, -1.423190234391E-04,-0.01110330567985, True, 4,Nothing, 0)
Part.FeatureManager.InsertMoldPartingLine 0
End SubSolidworksApi macros







Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As ObjectSub
main()Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
boolstatus = Part.Extension.SelectByID2("Top Plane","PLANE",0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("","EDGE",0.03860635673715, -1.423190234391E-04,-0.01110330567985, True, 0,Nothing, 0)
Part.ClearSelection2
Trueboolstatus = Part.Extension.SelectByID2("TopPlane","PLANE", 0, 0, 0, False, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("","EDGE",0.03860635673715, -1.423190234391E-04,-0.01110330567985, True, 4,Nothing, 0)
Part.FeatureManager.InsertMoldPartingLine 0
End SubSolidworksApi macros