Hi everyone

I have problems to create a circle in another plane, I do not know what code is missing

Any help and suggestion is very welcome.

Thank you in advance

This is my code:

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, True, 0, Nothing, 0)

Dim myRefPlane As Object

Set myRefPlane = Part.FeatureManager.InsertRefPlane(8, 0.25, 0, 0, 0, 0)

Dim skSegment As Object

Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.1, 0, 0#)

Part.ClearSelection2 True

Part.SketchManager.InsertSketch True

End Sub