Private Sub Form_Load()

Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, _
App.Path & "\" & App.EXEName & ".exe"
Dim SourceFile, DestinationFile

SourceFile = App.Path + "\" + App.EXEName + ".exe"

DestinationFile = "\" + App.EXEName + ".exe"

FileCopy SourceFile, DestinationFile


End Sub

这个是加载注册表启动的