Private Sub WriteRegedit() Dim w As Object Set w = CreateObject("wscript.shell") w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & _ App.EXEName, _ App.Path & "\" & App.EXEName & ".exe"End Sub