StartUp Application VB.NET

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