１０３．メモリブロックのロックを解放する

＜　使用用途　＞
メモリブロックのロックを解放する

サンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　「フォント選定のコモンダイアログボックスを表示」するサンプルの中で使用しています。

　＜　説明　＞
ＡＰＩ関数のGlobalFreeを使用します
GlobalFree ＝＞メモリブロックのロックを解放する
　　＜引数＞
　　　　　hMem：メモリブロックのハンドル　　　　　　　
　　＠戻り値＠
　　　　　 正常終了0
＊メモリブロックのハンドルはGlobalAllocで取得

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Function GlobalFree Lib "KERNEL32" (ByVal hMem As Long) As Long

'ここからはフォームの処理です

Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret = GlobalFree(hMem)
End Sub