Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
Нашёл вот функцию динамической подгрузки библиотеки, но ругается на ( LB = LoadLibrary(Path))

Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function FreeLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal ÜÈïé As Long, ByVal Msg As Long, ByVal WPARAM As Long, ByVal LPARAM As Long) As Long

Public Function DLLOCX(ByVal hWnd As Long, ByVal Path As String, ByVal Register As Boolean) As Boolean               On Error Resume Next         Dim LB As Long, PA As Long               LB = LoadLibrary(Path)         If LB = 0 Then Exit Function                If Register = True Then          PA = GetProcAddress(LB, "DllRegisterServer")         Else          PA = GetProcAddress(LB, "DllUnregisterServer")         End If                  If PA = 0 Then GoTo 0         Call CallWindowProc(PA, hWnd, ByVal 0&, ByVal 0&, ByVal 0&)         DLLOCX = True 0         Call FreeLibrary(LB)           End Function