Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = My.Settings.username
        TextBox2.Text = My.Settings.password
        If TextBox1.Text = "" Then
        Else
            CheckBox1.Checked = True

        End If
        If TextBox2.Text = "" Then
        Else
            CheckBox2.Checked = True

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "username" And TextBox2.Text = "password" Then
            If CheckBox1.Checked = True Then
                My.Settings.username = TextBox1.Text
                My.Settings.Save()
                My.Settings.Reload()
            Else
                My.Settings.username = ""
                My.Settings.Save()
                My.Settings.Reload()

            End If
            If CheckBox2.Checked = True Then
                My.Settings.password = TextBox2.Text
                My.Settings.Save()
                My.Settings.Reload()
            Else
                My.Settings.password = ""
                My.Settings.Save()
                My.Settings.Reload()

            End If
            MsgBox("You Have Successfully been logged into the secret system :D", MsgBoxStyle.Information, "Login Successful")
        Else
            MsgBox("ERROR: INCORRECT USERNAME/PASSWORD!", MsgBoxStyle.Critical, "FAILURE!")

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = False Then
            CheckBox2.Enabled = False
            CheckBox2.Checked = False
        Else
            CheckBox2.Enabled = True

        End If
    End Sub
End Class