如何让一个窗体置于最上层？答出来，剩下的分数都给你了！

Question

'在你的程序中的适当地方加入以下语句：
'
'      窗体总是再前
'      SetWindowPos myform.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS
'　　　普通窗体
'      SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGSPublic Declare Function SetWindowPos Lib "user32" _
     (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
      ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
      ByVal cy As Long, ByVal wFlags As Long) As Long
 Const SWP_NOMOVE = &H2
 Const SWP_NOSIZE = &H1
 Const HWND_TOPMOST = -1
 Const HWND_NOTOPMOST = -2
 Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE设置窗体为ACTIVE=TRUE，并用TIMER循环检测