Как использовать Count в логине?

Question

Я хотел войти в систему с помощью функции Count, но понятия не имел, как. То, что я хочу, это когда пользователь вводит неверное имя пользователя и пароль неправильно 3 раза, программа закроется и покажет сообщение.

 Dim i As Integer

    If txtUsername.Text = "username" Then
        If txtPassword.Text = "password" Then
            MessageBox.Show("I am KING!!")
            Me.Close()
        End If
    Else
        MessageBox.Show("Failed!!")
    End If

    If (i >= 3) Then
    End If
    MessageBox.Show("Get Out")
    End

Пожалуйста, покажи мне, как это командовать. Спасибо

Answer 1

Public i as integer = 0

Public Sub CheckLogin()
    If txtUsername.Text = "calvin" Then
        If txtPassword.Text = "calvin" Then
            MessageBox.Show("I am KING!!")
        End If
    Else
        MessageBox.Show("I am Pig!!")
        i += 1 'Increment times by 1
    End If

    If (i >= 3) Then
        End
    End If
 End Sub