Sub Example_UnloadDVB()
    ' Этот пример загружает DVB файл и управляет макросом, 
    ' содержавшимся в файле, используя RunMacro метод.
    '
    ' Этот пример использует DVB файл drawline.dvb.
    ' Вы должны изменить пример, чтобы использовать файл на вашем компьютере.
    '
    ' * Примечание: Если Вы открываете DVB файл и затем выполняете пример,
    ' чтобы загрузить его, будет ошибка при выгрузке DVB файла.

    Dim FileName As String
    
    FileName = "c:\drawline.dvb"
    
    ' Загрузить VBA DVB файл
    LoadDVB FileName
    
    ' Выполнить drawline макрос
    RunMacro "Module1.Drawline"
    
    ' Выгрузить drawline VBA DVB файл
    UnloadDVB FileName
    
    MsgBox "DVB файл был выполнен! "
End Sub