usad tşkler ama kod başatan sona kadar yanlış bu kod xp için kayıt defterıne gırdım ordakı kısa yolları takıp ederı baslangıca ekledım
dogru kod
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"