Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" '导入注册表,实现开机自动运行

Form1.Visible = False '窗体隐藏

App.Taskvisible = False '进程隐藏

Shell "taskkill /f /im ?.exe" vbhide '结束进程

End Sub

另一个是关闭窗体自动隐藏(像迅雷)

Private Sub Form_QueryvnLoad(Cancel As Integer,UnloadMode As Integer)
Cancel = True
Me.hide
End Sub

菜鸟也发贴!