CreateLine2,How to use AutoDimension2

Thank your tips

*****************************************

Private Sub ll()

   Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

       Set SwApp = Application.SldWorks

       Set SwModel = SwApp.ActiveDoc

   Dim SwSelMgr As SelectionMgr, Tmp

       Tmp = SwModel.Extension.SelectByID2("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)

       ''

   Dim SwSketch As Sketch, SwSketchSeg As SketchSegment, SwAnn As Annotation

   Dim SwFeat As Feature

       SwModel.InsertSketch2 True

       Set SwSketchSeg = SwModel.CreateLine2(0, 0, 0, 0, 0.01, 0)

       Set SwSketch = SwSketchSeg.GetSketch

       Set SwFeat = SwSketch

       SwSketchSeg.Select True

       Set SwAnn = SwModel.AddDimension2(0, 0.01, 0)

       SwModel.InsertSketch2 True

       Debug.Print

       Debug.Print SwFeat.Name

       Stop

End Sub