Oficina Nerd: Visual Basic - Como criar uma aplicação de login simples, vb.net [+download projeto]

Olá pessoal essa é a primeira vídeo-aula das várias que farei do visual basic, nela ensino e explico como criar um simples sistema de login. No final do post vc encontra o download do projeto e os códigos utilizados.

Download do projeto

ou

Códigos utilizados na Class:

''***************************************************************''
''                       RAINBOWSV TUTORIAIS                     ''
''                  visite: http://rainbowsv.net                 ''
''                  http://facebook.com/rainbowsv                ''
''     http://www.youtube.com/channel/UCAArXOz7Y7G64PnRh7BJaiQ   ''
''***************************************************************''

Public Class Form1


    Private Sub btnEntrar_Click(sender As Object, e As EventArgs) Handles btnEntrar.Click
        If (checkSalvar.Checked = True) Then
            My.Settings.username = txtUser.Text
            My.Settings.senha = txtSenha.Text
            My.Settings.checkSalvar = True
        Else
            My.Settings.username = ""
            My.Settings.senha = ""
            My.Settings.checkSalvar = False
        End If
        My.Settings.Save()

        If (txtUser.Text = "") Or (txtSenha.Text = "") Then
            MsgBox("Existem campos vazios!")
        Else
            If (txtUser.Text = "usuario") And (txtSenha.Text = "senha") Then
                MsgBox("Seja bem vindo(a)!")
                Form2.Show()
                Me.Hide()
            Else
                MsgBox("Usuário ou senha errado(s) ou não permitido(s)")
            End If
        End If
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        If (checkSalvar.Checked = False) Then
            My.Settings.username = ""
            My.Settings.senha = ""
            My.Settings.checkSalvar = False
        Else
            My.Settings.username = txtUser.Text
            My.Settings.senha = txtSenha.Text
            My.Settings.checkSalvar = True
        End If
        My.Settings.Save()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtUser.Text = My.Settings.username
        txtSenha.Text = My.Settings.senha
        If (My.Settings.checkSalvar = True) Then
            checkSalvar.Checked = True
        Else
            checkSalvar.Checked = False
        End If
    End Sub
End Class