[سؤال] شروط كلمه السر - نسخة قابلة للطباعة

كود :

       If TextBox1.TextLength < 8 Then

            MsgBox("اقل خانات 8", MsgBoxStyle.Exclamation, "")

            Exit Sub

        End If

        Dim all As New List(Of String)

        For Each t In TextBox1.Text

            all.Add(t)

        Next

        If Char.IsUpper(all.Item(0)) = False Then

            MsgBox("الحرف الاول لابد ان يكون كابيتال")

            Exit Sub

        End If

        Dim upper As Integer = 0

        Dim lower As Integer = 0

        Dim symbol As Integer = 0

        Dim num As Integer = 0

        Dim str As String = TextBox1.Text  '"Hello$"

        For [loop] As Integer = 0 To str.Length - 1

            If [Char].IsUpper(str([loop])) Then

                upper += 1

            ElseIf [Char].IsLower(str([loop])) Then

                lower += 1

            ElseIf [Char].IsSymbol(str([loop])) Then

                symbol += 1

            ElseIf [Char].IsNumber(str([loop])) Then

                num += 1

            End If

        Next

        If upper < 3 Or lower < 3 Or symbol < 3 Or num < 3 Then

            MsgBox("يجب ان تكتب خليطا من نصوص وارقام ورموز لا يقل عن 3 خانات لكل نوع" &

                   vbNewLine &

                   upper & " cap" & vbNewLine &

                   lower & " low" & vbNewLine &

                   symbol & " sym" & vbNewLine &

                   num & " num")

            Exit Sub

        Else

            MsgBox("ممتاز الان كلمة المرور قوية", MsgBoxStyle.Information, "")

        End If
اكتب هذا الكود بحدث النقر لزر الامر وامسح السابق