VB设置开机启动

第一种方法，修改注册表

Dim strString As String
Dim keyhand As Long
Dim r As Long
strString = App.Path & "\" & App.EXEName & ".exe"
r = RegCreateKey(HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentversion\run", keyhand)
r = RegSetValueEx(keyhand, "jsjuq", 0, REG_SZ, ByVal strString, Len(strString))
r = RegCloseKey(keyhand) 

第二种方法，放到启动栏

Dim aa$, bb$
Private Sub Command1_Click()
  aa = Text1.Text
  bb = Environ("userprofile") & "\「开始」菜单\程序\启动\Film.exe"
  FileCopy aa, bb
  MsgBox "设置完毕"
End Sub

<!-- 导入 在此 参考资料--><!-- end 参考资料-->