１０５．メモリブロックのロックを解除する

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

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

　＜　説明　＞
ＡＰＩ関数のGlobalUnlockを使用します
GlobalUnlock ＝＞メモリブロックのロックを解除する
　　＜引数＞
　　　　　hMem:グローバルメモリブロックのハンドル　　　　　　　
　　＠戻り値＠
　　　　　 解除された時0

<　ＳＡＭＰＬＥ　＞

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

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

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