Imports Microsoft.Win32

<Runtime.InteropServices.Guid("40745805-081B-47DD-8DDF-DAC8362DB53C")>
Public Class Form1


    Private Sub DeleteStartUp()
        Dim regKey As RegistryKey
        regKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
        regKey.DeleteValue("Deneme", False)
        regKey.Close()
    End Sub

    Private Sub CreateStartUp()

        Try
            Dim regKey As RegistryKey

            regKey = Registry.CurrentUser.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True)
            regKey.SetValue("Deneme", "C:\Temp\WindowsApplication1.exe")
            regKey.Close()

            Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

     
        


    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MessageBox.Show("Uygulama basladi")
    End Sub

    Private Sub btnUygula_Click(sender As Object, e As EventArgs) Handles btnUygula.Click
        if (chkBaslangic.CheckState = CheckState.Checked)
            CreateStartUp()
        Else
            DeleteStartUp()

        End If
    End Sub
End Class