在VB中如何让窗体总在最前端显示（要求在任务管理器之前）避免强行关闭.

仅能做的前端显示，无法避免强行关闭

窗体上放一时间控件，设置interval为500，粘贴以下代码

Private Declare Sub 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)
'定义常量
Const HWND_TOPMOST = -1 'On Top
Const HWND_NOTOPMOST = -2 'No Top
Const SWP_NOACTIVATE = &H10 '
Const SWP_SHOWWINDOW = &H40 '
'Dim TopOn As Integer

Private Sub Timer1_Timer()
'以下代码放在窗体中
'窗体中使用的代码放在用到的事件或方法中
'例1锁定在最上层
SetWindowPos Me.hWnd, HWND_TOPMOST, Me.Left / 15, _
Me.Top / 15, Me.Width / 15, _
Me.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End Sub

以下的代码我从XP中测试通过，可以达到你的要求。。要求在任务管理器之前

在窗口上建立一个COMMAND 和一个TIMER 控件，并复制下面的代码，运行就看到效果了。。。

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, B