Asset : 1 CheckBox
Imports System.IO,
Microsoft.Win32
Public Class Form1
Dim RegKey As
RegistryKey
'Start Up code Cendhikia Aditya Pratama
Private Sub
CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
CheckBox1.CheckedChanged
If CheckBox1.Checked = True
Then
RegKey =
Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run",
True)
RegKey.SetValue("Aplikasiku",
Application.ExecutablePath) 'Aplikasiku bisa diganti
"WAJIB"
RegKey.Close()
Else
RegKey =
Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run",
True)
RegKey.DeleteValue("Aplikasiku")
'Aplikasiku bisa diganti "WAJIB"
RegKey.Close()
End If
End Sub
End Class
0 komentar:
Posting Komentar
Setelah melihat - lihat, Alangkah baiknya memberikan komentar mengenai Blog ini.
Kritik dan Saran teman-teman semua, Saya anggap sebagai masukan buat saya... terima kasih telah berkunjung