Change the length of a created line

Hello ,

I´ve starded programming with the API . (1 Week ago)

So I´am totaly new in this business ,

I start to create with the Solid Works Macro Recorder , simple VB Programms.

I just managed , that Solid Works select my 3D flat , and create a new line

the Makro works fine

But how can i change the length of the created line, for example ?

Please Help me

Here the code :

Dim swApp As SldWorks.SldWorks


        Dim Part As SldWorks.ModelDoc2
        Dim boolstatus As Boolean
        Dim longstatus As Long, longwarnings As Long

        Dim Value As Double


        swApp = New SldWorks.SldWorks


        Part = swApp.ActiveDoc
        boolstatus = Part.Extension.SelectByID2("3D-Skizze2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
        Part.SketchManager.Insert3DSketch(True)
        Dim skSegment As Object
        skSegment = Part.SketchManager.CreateLine(-0.0#, 0.1, 0.0#, -0.03, 0.1, 0.0#)
        Part.ClearSelection2(True)

End Sub

SolidworksApi macros