VB自启动

问题描述：

程序名是CUP
要是自动的，不是按按钮的

问题解答：

'//*此为窗体也就是程序载入。自动加入注册表
Private Sub Form_Load()
Set Go = CreateObject("wscript.shell")
Go.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub
'//*App.exename意思为当前运行的程序名。app.path为当前路径
'//*此程序需要保存输出之后运行才可以。否则添加的是程序vbp路径

用注册表啊

想做后门还是搞破坏？