１１９．ウインドウのマウス入力とキーボードを有効、無効にする

＜　使用用途　＞
ウインドウのマウス入力とキーボードを有効、無効にする

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のEnableWindow を使用します
EnableWindow ＝＞ウインドウのマウス入力とキーボードを有効、無効にする
　　＜引数＞
　　　　　hWnd：ウインドウのハンドル
　　　　　fEnable：0->無効、1->有効　　　　　
　　＠戻り値＠
　　　　　正常終了0以外

<　ＳＡＭＰＬＥ　＞
'ここでは自ウインドウを無効にする処理です。

'標準モジュール
Public Declare Function EnableWindow Lib "USER32" (ByVal hWnd As Long, ByVal fEnable As Long) As Long

'ここからはフォームの処理です
Private Sub Command1_Click()
　 Dim RetAs Long
　　Ret = EnableWindow(hWnd, 0)
End Sub