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 FreeLibrary Lib "kernel32" _
(ByVal hLibModule As Long) As Long
en una forma:
Dim hInst As Long
Dim lr As Long
hInst = LoadLibrary(App.Path & "\versionXP.dll")
If hInst <> 0 Then
lr = GetProcAddress(hInst, "muestraXP")