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