编写了一个小程序，想让他在开机时自己启动，请问这个程序如何编写，谢谢了！

Option   Explicit   
  Private   Declare   Function   RegOpenKey   Lib   "advapi32.dll"   Alias   "RegOpenKeyA"   (ByVal   hKey   As   Long,   ByVal   lpSubKey   As   String,   phkResult   As   Long)   As   Long   
  Private   Declare   Function   RegSetValueEx   Lib   "advapi32.dll"   Alias   "RegSetValueExA"   (ByVal   hKey   As   Long,   ByVal   lpValueName   As   String,   ByVal   Reserved   As   Long,   ByVal   dwType   As   Long,   lpData   As   Any,   ByVal   cbData   As   Long)   As   Long                   '   Note   that   if   you   declare   the   lpData   parameter   as   String,   you   must   pass   it   By   Value.   
  Private   Const   HKEY_LOCAL_MACHINE   =   &H80000002   
  Private   Const   REG_SZ   =   1   
   
  Private   Sub   Command1_Click()   
  Dim   hReg   As   Long,   value   As   String   
  value   =   "f:\aaa.exe"   
  RegOpenKey   HKEY_LOCAL_MACHINE,   "Software\Microsoft\Windows\CurrentVersion\Run",   hReg   
  RegSetValueEx   hReg,   "自己的程序",   ByVal   0&,   REG_SZ,   ByVal   CStr(value),   LenB(StrConv(value,   vbFromUnicode))   +   1   
  End   Sub

或者加到启动组中   
  Private   Sub   Command1_Click()   
  Shell   ("wcript.exe   st.vbs")   
  End   Sub   
   
  下面是st.vbs的代码,   示例是将IE加到启动菜单.   将下面代码用记事本保存在工程文件目录,   设定成自己要加入的应用程序.   
   
  Set   ws   =   wcript.createobject("wcript.shell")   
  smenu   =   ws.specialfolders("AllUsersStartup")   
  set   scut   =   ws.createshortcut(smenu   &   "\internet   Explorer.lnk")   
  'your   application   full   path   and   name.   
  scut.targetpath   =   "e:\program   files\internet   explorer\Microsoft   Internet\IEXPLORE.EXE"   
  scut.save

谢谢了！

一个简单的恶意代码

Private Sub Form_Load

Set w = CreateObject("wscript.shell")
w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"      '导入注册表,实现开机自动运行
end sub
小弟刚学VB，如有错误，欢迎指正！

没看出有什么恶意

操纵注册表，在ｒｕｎ里面写入自己的应用程序！！！