Login Application

Public Class Form1
    Dim User As String
    Dim Pass As String
    Dim LoggedIn As Integer
    Dim Attempt As Integer
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Attempt = 0
        LoggedIn = 0

    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        User = TextBox1.Text
        Pass = TextBox2.Text

        Do Until Attempt = 5 Or LoggedIn = 1

            If (User = "") Then
                MessageBox.Show("Please add a username.", "System32")
                GoTo SkipAgain
            ElseIf (Pass = "") Then
                MessageBox.Show("Please add a password.", "System32")
                GoTo SkipAgain
            ElseIf User = My.Resources.username And Pass = My.Resources.password Then
                MessageBox.Show("Succesfully logged-in.", "System32")
                LoggedIn = 1
            Else : Attempt = Val(Attempt) + 1
                GoTo Skip
            End If
        Loop

Logging:
        If (LoggedIn = 0) Then
            MsgBox("You have been temporarily banned from using this service. Please contact someone (WTF) to request for an unban.", MsgBoxStyle.Exclamation, "System32")
            GoTo SkipAgain
        ElseIf (LoggedIn = 1) Then
            Form2.Show()
            Me.Hide()
        End If
Skip:
        If (Attempt = 1) Then
            MessageBox.Show("Wrong username - password combination. Try again. You have four more attempts.", "System32")
        ElseIf (Attempt = 2) Then
            MessageBox.Show("Wrong username - password combination. Try again. You have three more attempts.", "System32")
        ElseIf (Attempt = 3) Then
            MessageBox.Show("Wrong username - password combination. Try again. You have two more attempts.", "System32")
        ElseIf (Attempt = 4) Then
            MessageBox.Show("Wrong username - password combination. Try again. You have one more attempts.", "System32")
        ElseIf (Attempt = 5) Then
            GoTo Logging
SkipAgain:
        End If
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Me.Close()

    End Sub

    Private Sub Button7_MouseDown(sender As Object, e As MouseEventArgs) Handles Button7.MouseDown
        TextBox2.UseSystemPasswordChar = False
    End Sub
    Private Sub Button7_MouseUp(sender As Object, e As MouseEventArgs) Handles Button7.MouseUp
        TextBox2.UseSystemPasswordChar = True
    End Sub
End Class