２３．ウインドウを最小化する

＜　使用用途　＞
ウインドウを最小化する

＜　説明　＞
ＡＰＩ関数のCloseWindowを使用します。
CloseWindow＝＞ウインドウを最小化する
　　＜引数＞
　　　　　hWnd&：　　ハンドル
　　＠戻り値＠　　
　　　　正常終了1

<　ＳＡＭＰＬＥ　＞
’標準モジュール
Public　Declare Function CloseWindow Lib "USER32" (ByVal hWnd&) As Long
’ここからはフォームの処理
Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret=CloseWindow(Form1.hwnd)
End Sub