Private Declare Function RegTestDLL Lib "Test.DLL" Alias _  \n    "DllRegisterServer"() As Long  \nPrivate Sub Command1_Click()\nConst ERROR_SUCCESS =  0 &\nDim retCode As Long\nOn Error Resume Next  \' включаем программную обработку ошибок\nChDrive "C:"        \' Устанавливаем нужный\nChDir "C:\\MyApp"    \' каталог текущим\nregCode = RegTestDLL()  \' регистрация Test.DLL\n\' анализ возможных ошибок\nIf Err <>  0  Then\n  MsgBox "Файл Test.DLL не найден"\nElse  \n  If regCode <> ERROR_SUCCES Then  \n    MsgBox "Операция регистрации не выполнена"\n  End If  \nEnd If  \nEnd Sub

'*************************************************************
' Регистрирует/дерегистрирует указанный файл
'*************************************************************
Public Function RegSvr(sFileName As String, Optional bRegister As Boolean = False) As Long
    Const ERR_CANT_LOAD =  4 &
    Const ERR_NO_ENTRY_POINT =  5 &
    Const ERR_CANT_REGISTER =  6 &
    
    Dim lb As Long, pa As Long, s As String, ss As String
    If g_bWin98 Or g_bWinNT4 Then
        s = GetSystemDirectory
        If Not bRegister Then ss = "/u "
        If StartFile(s & "RegSvr32.exe /s " & ss & sFileName) Then RegSvr = ERR_CANT_REGISTER
    Else
        lb = LoadLibrary(sFileName)
        If lb Then
            s = IIf(bRegister, "DllRegisterServer", "DllUnregisterServer")
            pa = GetProcAddress(lb, s)
            If pa Then
                If CallWindowProc(pa, ByVal  0 &, ByVal  0 &, ByVal  0 &, ByVal  0 &) Then RegSvr = ERR_CANT_REGISTER
            Else
                RegSvr = ERR_NO_ENTRY_POINT
            End If
            FreeLibrary lb
        Else
            RegSvr = ERR_CANT_LOAD
        End If
    End If
End Function