Dim OCS As CSDN.OCS
Dim App As CSDN.Ocs_Application
Sub Test()
    Call Login
    
    Dim Sketches As CSDN.Sketches
    Dim CreateSketch As CSDN.CreateSketchStruct
    
    If App.Folders.RunModuleForSelect("Выберите документ", False) > 0 Then
    
        Set Sketches = App.Folders.Properties("SKETCHES").AsIDispatch
        
        CreateSketch.SketchNote = "Новый эскиз"
        CreateSketch.SketchType = 2
        CreateSketch.Filename = "d:\temp\test.bmp"
        CreateSketch.DocFile = -1
        
        Call Sketches.CreateSketch(CreateSketch, False)
                
        I = Sketches.ShowModal("Эскизы документа")
            
        Set Sketches = Nothing
        
    End If
    
End Sub
Sub Login()
    
    If OCS Is Nothing Then Set OCS = CreateObject("CSDN.OCS")
    
    If App Is Nothing Then Set App = OCS.Login 
    
End Sub