８８．デスクトップのハンドルを取得する

＜　使用用途　＞
デスクトップのハンドルを取得する

　＜　説明　＞
ＡＰＩ関数のGetDesktopWindowを使用します
GetDesktopWindow＝＞デスクトップハンドルを取得
　　＜引数＞
　　　　 　なし　　　
　　＠戻り値＠
　　　　　 ハンドル

<　ＳＡＭＰＬＥ　＞
’ここではデスクトップのハンドルを取得する処理です
'標準モジュール
Public Declare Function GetDesktopWindow Lib "USER32" Alias "GetDesktopWindow" () As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret= GetDesktopWindow
End Sub