Private Declare Function LoadLibrary Lib "kernel32.dll" Alias "LoadLibraryA" ( _
     ByVal lpLibFileName As String) As Long
 
Private Declare Function FreeLibrary Lib "kernel32.dll" ( _
     ByVal hLibModule As Long) As Long
 
Private Declare Function GetProcAddress Lib "kernel32.dll" ( _
     ByVal hModule As Long, _
     ByVal lpProcName As String) As Long
 
Private Declare Function CallWindowProc Lib "user32.dll" Alias _
  "CallWindowProcA" ( _
     ByVal lpPrevWndFunc As Long, _
     ByVal hwnd As Long, _
     ByVal msg As Long, _
     ByVal wParam As Long, _
     ByVal lParam As Long) As Long
 
Sub main()
    Dim hModule As Long
    Dim pAdr As Long
 
    s = App.Path
    If Right(s, 1) <> "\" Then s = s & "\"
    s = s & "MyOCX.ocx"
 
    hModule = LoadLibrary(s)
 
    If hModule Then
       pAdr = GetProcAddress(hModule, "DllRegisterServer")
       If pAdr Then
           CallWindowProc pAdr, 0, 0, 0, ByVal 0
       End If
    End If
 
    FreeLibrary hModule
    Form1.Show
End Sub