那没什么难的，原理是类似的。关键都是在Unload事件或者QueryUnload事件里取消掉关闭窗体事件。
你那个可以在取消关闭之后点亮一个Timer,那个Timer在Timer()事件的时候显示窗体，然后熄灭自己。

更简单的是Timer常亮，工作是显示窗体。Form_QueryUnload/Form_Unload中取消关闭消息

Private Sub Form_Load()
'禁止调出任务管理器0
'-----------------------------------------------------------
On Error Resume Next '设置错误陷阱
Dim s As String
s = Environ("windir") '取得系统安装文件夹
s = s + "\system32\taskmgr.exe" '任务管理器主程序
Open s For Random Lock Read As #1 '锁定文件
App.TaskVisible = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = True
End Sub

这种锁定文件的思路本来是不错的……可我仍然看了就想笑……

直接改文件名不就是了嘛……何必弄这么复杂……还费系统资源……不小心就弄巧成拙……