FreeLibrary Function
ααα DLLs αααβααααΌαβααΆαβαααα»αβαααβααα ααααΈβαααααβααΆααα DeclareΒ α DLL αααβααΆαβαααβααααΌαβααΆαβαααα»αβαααβαααααβαααααααα· ααΎβα’αα»ααααβαα½αβαααα»αβα ααααβα’αα»ααααβααΆααα’ααβααααβααΆ ααααΌαβααΆαβα α Β α ααΎαβααβααα α Declare
ααΆαααβααααααα α
FreeLibrary (LibName As String)
αααΆαααΆαααααα α
LibName α ααααααβααααβα’ααααβαααβαααααΆααβα’αααΈβαααααβαα DLLΒ α
FreeLibrary α’αΆα βαααα ααβαα DLLs αααβααααΌαβααΆαβαααα»αβααα‘α»αβαααβααα BasicΒ α
α§ααΆα ααα α
Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( Long )
Sub ExampleDeclare
Dim lValue As Long
lValue = 5000
MyMessageBeep( lValue )
FreeLibrary("user32.dll" )
End Sub