Vector Graphics ActiveX - множество ошибок при использовании

Dim WithEvents Doc As ProGrapherFoundation.Document
Dim WithEvents Wnd As ProGrapherFoundation.Window
 
Dim lincl As ProGrapherFoundation.LineClass
Dim ln  As ProGrapherFoundation.Line
 
Private Sub Form_Load()
    'Init variables
    bMove = False
    bLoad = False
 
    'Init Doc & Wnd
    Set Doc = ctrlProGrapher.Document
    Set Wnd = Doc.Window
    
    'Create Layer "Test"
    Doc.CreateLayer(, "Test").Active = True
    
    Set lincl = Doc.ActiveLayer.CreateClass(ciLine, Nothing)
    Set ln = lincl.Create
    ' Добавляем точки ломаной линии
    ln.AddNode 0.01, 0.01
    ln.AddNode 0.09, 0.05
    ln.AddNode 0.1, 0.08
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    'Free Doc & Wnd
    Set Wnd = Nothing
    Set Doc = Nothing
End Sub

Dim WithEvents Doc As ProGrapherFoundation.Document
Dim WithEvents Wnd As ProGrapherFoundation.Window
 
Dim arccl As ProGrapherFoundation.ArcClass, pt As ProGrapherFoundation.Arc
 
Private Sub Form_Load()
    'Init variables
    bMove = False
    bLoad = False
 
    'Init Doc & Wnd
    Set Doc = ctrlProGrapher.Document
    Set Wnd = Doc.Window
    
    'Create Layer "Test"
    Doc.CreateLayer(, "Test").Active = True
    
    Set arccl = Doc.ActiveLayer.CreateClass(ciArc, Nothing)
    
    CreatePoint 0.05, 0.009, vbRed
    CreatePoint 0.05, 0.08, vbBlue
    CreatePoint 0.09, 0.03, vbGreen
 
End Sub
 
' Ñîçäàåì òî÷êó
Private Sub CreatePoint(ByVal X As Double, ByVal Y As Double, ByVal Color As Long)
    Set pt = arccl.Create(atSegment, X, Y, 0.0008, 0.0008, 0, 6.28)
    With pt
        .CustomDraw = True
        .Styles.SolidGround = True
        .Styles.Color = Color
        .Styles.NullBrush = False
        .Styles.NullPen = True
    End With
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    'Free Doc & Wnd
    Set Wnd = Nothing
    Set Doc = Nothing
End Sub