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

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

デスクトップのウィンドウハンドルを取得します。
次のコードは、デスクトップのウィンドウハンドルをメッセージダイアログで表示するサンプルです。

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

'デスクトップのウィンドウハンドルを取得する
Sub Sample()
    Dim myHwnd As Long
    'デスクトップのウィンドウハンドルを取得して表示
    myHwnd = GetDesktopWindow()
    MsgBox myHwnd
End Sub