已经可以自动运行了
Private Sub autorunTrue_Click()
Set autorunT = CreateObject("WScript.Shell")
autorunT.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.Title, App.Path & "\" & App.EXEName & ".exe", "REG_SZ"
End Sub
如何取消？
我的取消代码如下
Private Sub autorunFalse_Click()
Set autorunF = CreateObject("Wscript.shell")
autorunF.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.Title, App.Path & "\" & App.EXEName & ".exe"      
Set autorunF = Nothing
End Sub
请问代码哪里出错了？谢谢。

成功~~~谢谢各位版主的帮助。