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

Формулировка задачи:

Уважаемые коллеги, кто-то работал с сием чудом? Vector Graphics ActiveX Сайт автора либо переехал, либо закрылся, в интернете ничего( хотелось бы поболее разобраться с этим компонентом, к сожалению прилагаемая документация очень краткая, есть исходники на VB и C++. В исходниках есть только создание прямоугольника, круга(дуги, сектора), текста, и полилинии. Пробую создать точку или линию, высыпает кучу ошибок, делаю все подобно(( Помогите информацией, кто, что знает Кому интересна библиотека могу отправить на почту

Решение задачи: «Vector Graphics ActiveX - множество ошибок при использовании»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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