[COLOR=blue]Dim[/COLOR] KayitDefteri [COLOR=blue]As[/COLOR] Object
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Command1_Click()
[COLOR=blue]Set[/COLOR] KayitDefteri = CreateObject([COLOR=red]“wscript.shell”[/COLOR])
KayitDefteri.RegWrite[COLOR=red]“HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows
/CurrentVersion/Run/BahadirAksoycom”[/COLOR], [COLOR=red]“C:/programadiniz.exe”[/COLOR]
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]