发个无聊代码, 看看有多少人编译执行了

修改一下, 有不同的效果

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Sleep API函数 调用时只要写Sleep 1000 就可以

Private Sub Form_Load()
'想写的程序没设计出来, 无聊中
'发个无聊代码, 看看有多少人编译执行了

Me.Hide
'App.TaskVisible = False '这一句我不敢执行, 看谁够胆开了

Do While True: DoEvents: Sleep 2000: Loop

End Sub

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
'想写的程序没设计出来, 无聊中
'发个无聊代码, 看看有多少人编译执行了

Me.Hide
'App.TaskVisible = False '这一句我不敢执行, 看谁够胆开了

Do While True: DoEvents: Sleep 2000: Loop

End Sub

App.TaskVisible = False仅仅是在任务管理器的‘应用程序’栏不可见，在‘进程’中仍然可以看到

一个死循环而已，大不了重启，没什么大事~

呵呵 就是 又不是隐藏进程

要是不断死循环执行这一句 shell "winword",1 这个才不好办呢 一是占资源很大，二是不断以新窗口弹出，任务管理器即时调出来也不好操作，因为进程列表不断变化 基本很难找到源头