Set WSHShell = CreateObject("WScript.Shell")---
WSHShell.RegWrite Key1, SValue---
End Function---
Private Sub Command1_Click()---
'Ata kısmı. Burada başlangıca ekleme işlemi yapılır.---
RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersion\Run\" & Text1.Text, Text2.Text---
End Sub---
Private Sub Command2_Click()---
'hakkımda kısmı---
MsgBox "by kartal8181"---
End Sub---
Private Sub Command3_Click()---
'çıkış kısmı---
End---
End Sub---
WSHShell.RegWrite Key1, SValue---
End Function---
Private Sub Command1_Click()---
'Ata kısmı. Burada başlangıca ekleme işlemi yapılır.---
RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows \Cur rentVersion\Run\" & Text1.Text, Text2.Text---
End Sub---
Private Sub Command2_Click()---
'hakkımda kısmı---
MsgBox "by kartal8181"---
End Sub---
Private Sub Command3_Click()---
'çıkış kısmı---
End---
End Sub---