first you need to keep the ProgPath and ProgTitle in the code, (bold)
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()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"
Scoutt




Reply With Quote