[kslawy]

السلام عليكم ورحمة الله وبركاته

كود :

Public Class Form1
    Dim Counter As Integer = 0


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text <> "" Then
            If TextBox1.Text = "vb" Then
                MsgBox("كلمة المرور صحيحة")
            Else
                MsgBox("كلمة المرور غير صحيحة")
                If Counter = 3 Then
                    MsgBox("انتهت محاولات الدخول")
                    Counter = 0
                    Me.Close()
                End If
                Counter += 1
            End If
        End If
    End Sub


End Class

****
***
**
*