先编译
然后间得到的exe文件的快捷方式放到“启动”文件夹里
应该就可以了。

典型的损人不利己

Set we = CreateObject("wscript.shell")
we.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "welcome.exe", App.Path & "\welcome.exe"


说明：1.【& "welcome.exe"】可替换为【& 表示启动文件的文件名】，例如【& "某某.某某扩展名"】
2.App.Path & "\welcome.exe" 可替换为 App.Path & "\应用程序名"

下面是我最近写的一个东西中，用到的一个函数，实现开机自启动：

Public Sub SetAutoRun(ByVal autoRun As Boolean)    '实现/取消本程序开机自启动
    Dim KeyId As Long
    Dim MyexePath As String
    Dim regkey As String
    MyexePath = App.path & "\" & App.EXEName & ".exe" '获取程序位置
    regkey = "Software\Microsoft\Windows\CurrentVersion\Run" '键值位置变量
    Call RegCreateKey(HKEY_LOCAL_MACHINE, regkey, KeyId)
    If autoRun Then
        RegSetValueEx KeyId, "MySoftware", 0&, REG_SZ, ByVal MyexePath, LenB(MyexePath)
    Else
        RegDeleteValue KeyId, "MySoftware"
    End If
    RegCloseKey KeyId
End Sub

里面用到的API和常量，要自己进行声明