這需要將要啟動的應用程序路徑寫到注冊表中具體的路徑是：
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
只需要在上面的路徑下寫一個鍵并為此鍵設置一個當前應用程序的路徑即開機自載
具體的方法：
1、將下面這段代碼就是將鍵Clock寫到注冊表中：
  '設置注冊表內的RUN屬性
  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, "Clock", 0, REG_SZ, ByVal strString, Len(strString))
  r = RegCloseKey(keyhand)
2、下面這段代碼就是將注冊表的Clock鍵刪除
  '刪除注冊表內的RUN屬性
  Dim keyhand As Long
  r = RegOpenKey(HKEY_LOCAL_MACHINE, "software\microsoft\windows\currentversion\run", keyhand)
  r = RegDeleteValue(keyhand, "Clock")
  r = RegCloseKey(keyhand)