Private Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
;----------------------------------------
Dim cmdline As String
Dim handle As Long
Sub main()
MsgBox "Ready to load "&cmdline&" ,press OK."
handle=LoadLibrary(cmdline)
MsgBox "Ready to free "&cmdline&" ,press OK."
FreeLibrary handle
End Sub
