first you need to keep the ProgPath and ProgTitle in the code, (bold)

Code:
Private Sub Command1_Click() 
Dim ProgPath As String, ProgTitle As String 


ProgPath = App.Path & "\" & App.EXEName & ".exe" 
ProgTitle = App.Title 
SaveSettingString HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run","ProgTitle","ProgPath"
they are already setup to get the path and file name. As far as I know this code is in your Form under Command_Click()

Scoutt