1.普通启动，直接调用写注册表方法

Private Sub Form_Load()

'定义一个对象

Dim a

'创建一个对象

Set a = CreateObject("wscript.shell")

'写入注册表启动项

a.regwrite "KEY_LOCAL_ MACHINE\SOFTWARE\Microsfot\Windows\CurrentVersion\Run" & App.EXEName,App.Path & "\" & App.EXEName & ".exe"

End Sub

这种方式，在第一次写入注册表的时候，360的注册表防护功能会发现，并提示，可能被阻止掉，所以采用第二种方式

2.设置定时器，没过一分钟就写一次

Private Sub Timer1_Timer()

Dim a

Set a = CreateObject ("wscript.shell")

a.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName,App.Path & "\" & App.EXEName & ".exe"

End Sub

这样就把程序写到运行注册表中了，每次启动机器的时候都会自动启动。。。