How can I make my program start when Windows does?

[xavierjohn22]

"Dim Reg as ObjectSet" to "Dim Reg as Object"

i tried it here, no problem:

Option Explicit

Private Sub Form_Load()
AddToStartup
End Sub


      Public Sub AddToStartup()
      Dim Reg As Object
      Set Reg = CreateObject("Wscript.shell")
      Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
      End Sub
      Public Sub RemoveFromStartup()
      Dim Reg As Object
      Set Reg = CreateObject("Wscript.Shell")
      Reg.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName
      End Sub

Private Sub Form_Unload(Cancel As Integer)
RemoveFromStartup
End Sub