９１．ウインドウを手前にする（一時的）

＜　使用用途　＞
常に手前にするのならSetWindowsPosを使う

　＜　説明　＞
ＡＰＩ関数のBringWindowToTop を使用します
BringWindowToTop ＝＞ウインドウを手前にする
　　＜引数＞
　　　　 　hwnd：ウインドウのハンドル
　　＠戻り値＠
　　　　　 正常終了0以外
＊常に手前にはならない

<　ＳＡＭＰＬＥ　＞
’ここでは自ウインドウを手前にする処理です
'標準モジュール
Public Declare Function BringWindowToTop Lib "USER32" (ByVal hWnd As Long) As Long

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