FreeLibrary Function

གསལ་བསྒྲགས་གསལ་བཤད་ཀྱིས་མངོན་གསལ་འབད་ཡོད་མི་ཌི་ཨེལ་ཨེལ་འཛིན་གྲོལཝ་ཨིན། འཛིན་གྲོལ་འབད་ཡོད་མི་ཌི་ཨེལ་ཨེལ་དེ་རང་བཞིན་གྱིས་དེའི་ལས་འགན་བོད་ཡོད་པ་ཅིན་བསྐྱར་ལོག་མངོན་གསལ་འབད་བཏུབ་ཨིན་ བལྟ་ཡང་: གསལ་བསྒྲགས

ཚིག་སྦྱོར:

དཔེར་མཛོད་བར་སྟོང (LibName As String)

ཚད་བཟུང་ཚུ་:

ལིབ་མིང་: ཡིག་རྒྱུནགསལ་བརྗོད་དེ་ཌི་ཨེལ་ཨེལ་དེ་གི་མིང་དེ་གསལ་བཀོད་འབདཝ་ཨིན།

དཔེར་མཛོད་རང་དབང་་གིས་རྐྱངམ་ཅིག་གིས་གཞི་རིམ་རཱན་ཊའིམ་སྐབས་མངོན་གསལ་འབད་ཡོད་པའི་ཌི་ཨེལ་ཨེལ་ཚུ་འཛིན་འགྲོལ་འབདཝ་ཨིན།

དཔེར་བརྗོད:

Declare Sub MyMessageBeep Lib "user32.dll" Alias "MessageBeep" ( Long )

Sub ExampleDeclare

Dim lValue As Long

    lValue = 5000

    MyMessageBeep( lValue )

    FreeLibrary("user32.dll" )

End Sub