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
 
Public hModLib As Long
 
Function InitDLL() As Boolean
    If hModLib = 0 Then hModLib = LoadLibrary("meine.dll")
    If hModLib = 0 Then MsgBox "meine.dll konnte nicht gefunden werden"
    InitDLL = (hModLib <> 0)
End Function
 
Function FreeDLL()
    'If hModLib <> 0 Then Call FreeLibrary(hModLib)  'Es passiert nix
    hModLib = FreeLibrary(hModLib)
    MsgBox hModLib                    'liefert 1
    hModLib = FreeLibrary(hModLib)
    MsgBox hModLib                    'liefert 0  
End Function
 
Function Test()
    MsgBox hModLib
    tmp = InitDLL
    If tmp = True Then
        MsgBox "True"
    Else
        MsgBox "False"
    End If
    MsgBox hModLib
End Function