Add SW sketch and point

Wardrobe/Program.vb

@@ -18,6 +18,19 @@ Public Class Program
         'Create a new blank document
         Model = swApp.NewDocument("C:\ProgramData\SOLIDWORKS\SOLIDWORKS 2020\templates\part.prtdot", 0, 0, 0)
         Part = Model
+
+        Dim swSkMgr As SketchManager
+        Dim longstatus As Integer
+        Dim boolstatus As Boolean
+
+        swSkMgr = Model.SketchManager
+        swSkMgr.InsertSketch(True)
+        boolstatus = Model.Extension.SelectByID2("Front Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
+        Model.ClearSelection2(True)
+
+        Dim skPoint As SketchPoint
+        skPoint = swSkMgr.CreatePoint(1, 0, 0)
+        swSkMgr.InsertSketch(True)
     End Sub
 
 End Class