スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
宣言文  Declare Function GetForegroundWindow Lib "user32" () As Long

ユーザーが操作中のウィンドウ(フォアグラウンドウィンドウ)のウィンドウハンドルを取得します。
次のコードは、フォアグラウンドウィンドウのウィンドウハンドルをメッセージダイアログで表示するサンプルです。

●サンプル●
Private Declare Function GetForegroundWindow _
    Lib "user32" () As Long

'操作中のウィンドウのウィンドウハンドルを取得する
Sub Sample()
    Dim myHwnd As Long
    'フォアグラウンドウィンドウのウィンドウハンドルの取得
    myHwnd = GetForegroundWindow()
    MsgBox myHwnd
End Sub