１２６．ウインドウが最大化されているか判別する

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

　＜　説明　＞
ＡＰＩ関数のIsZoomed 使用します
IsZoomed ＝＞ウインドウが最大化されているか判別
　　＜引数＞
　　　　　hWnd：ウインドウのハンドル　　　　　
　　＠戻り値＠
　　　　　最大化されているとき0以外

<　ＳＡＭＰＬＥ　＞

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

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

　 Dim Ret As Long
　
　Ret = IsZoomed(Form1.hWnd)
　 If Ret<>0 Then Msgbox"ウインドウは最大化されています"

End Sub