１２０．現在操作中のウインドウのハンドルを取得する

＜　使用用途　＞
現在操作中のウインドウのハンドルを取得する

　＜　説明　＞
ＡＰＩ関数のGetForegroundWindow を使用します
GetForegroundWindow ＝＞現在操作中のウインドウのハンドルを取得
　　＜引数＞
　　　　　なし　　　　　
　　＠戻り値＠
　　　　　ウインドウのハンドル

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Function GetForegroundWindow Lib "USER32" () As Long

'ここからはフォームの処理です
Private Sub Command1_Click()
　 Dim RetAs Long
　　Ｒet = GetForegroundWindow
End Sub