Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long

Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long

 

Public Function Register_OCX_DLL(Wnd As Long, Path As String, Reg As Boolean)

 

 On Error Resume Next

 Dim LB As Long, PA As Long

 

 LB = LoadLibrary(Path)

 

 If Reg = True Then

   PA = GetProcAddress(LB, "DllRegisterServer")

 Else

   PA = GetProcAddress(LB, "DllUnregisterServer")

 End If

 

 If PA > 0 Then

   Call CallWindowProc(PA, Wnd, ByVal 0&, ByVal 0&, ByVal 0&)

   Call FreeLibrary(LB)

 End If

 

End Function