１２４．ウインドウがアイコン化されているか判別する

＜　使用用途　＞
ウインドウがアイコン化されているか判別する

　＜　説明　＞
ＡＰＩ関数のIsIconic使用します
IsIconic ＝＞ウインドウがアイコン化されているか判別
　　＜引数＞
　　　　　hWnd：ウインドウのハンドル　　　　　
　　＠戻り値＠
　　　　　最小化されている時1

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public　Declare Function IsIconic Lib "USER32" Alias "IsIconic" (ByVal hWnd　As Long) As Long

'ここからはフォームの処理です
Private Sub Command1_Click()

　 Dim Ret As Long
　
　Ret = IsIconic(hWnd)
　 If Ret=1 Then Msgbox"最小化されています"

End Sub