４．マウス入力を受け持っているハンドルを取得する
＜ 使用用途 ＞
ハンドルを取得する
＜ 説明 ＞
ＡＰＩ関数のGetCapture を使用します。
サンプルではコマンドボタンを押したときにハンドルを取得する処理です。
GetCapture ＝＞ハンドルを取得
＠戻り値＠
ハンドルが戻る
< ＳＡＭＰＬＥ ＞
’標準モジュール
Public Declare Function GetCapture Lib "user32" () As Long
’フォーム内の処理
Private Sub Command1_Click()
Dim Ret As Long
Ret=GetCapture
End Sub