[ابراهيم ايبو]

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

تفضل هذا التعديل على الفنكشن

كود :

 Public Function DetectCase() As Boolean
       If TextBox1.Text = MyName Then
           Return True
       End If
       Dim UserN1 As Char() = TextBox1.Text.Trim().ToCharArray()
       Dim UserN As Char() = MyName.ToCharArray()
       Dim detc As Boolean = True
       ' التحقق من طول المصفوفتين
       If UserN1.Length <> UserN.Length Then
           Return False
           Exit Function
         
       Else
           For i As Integer = 0 To UserN1.Length - 1
               ' فحص كل حرف من المصفوفة الاولى مع الحرف المساوي من المصفوفة الثانية ان كان يساويه في حالة الحرف
               If Char.IsLower(UserN1(i)) = True And Char.IsLower(UserN(i)) = True Or Char.IsUpper(UserN1(i)) = True And Char.IsUpper(UserN(i)) = True Then
                   detc = True
                   ' اذا كان هناك فراغ
               ElseIf Char.IsWhiteSpace(UserN1(i)) = True And Char.IsWhiteSpace(UserN(i)) = True Then
                   detc = True
                   ' التحقق من وجود ارقام
               ElseIf Char.IsNumber(UserN1(i)) = True And Char.IsNumber(UserN(i)) = True Then
                   detc = True
               Else
                   ' اذا لم يتحقق الشرط ستكون القيمة  فولص
                   detc = False
                   Exit For
               End If
           Next

       End If

       Return detc
   End Function