[sooriaty03]

جرب هذا الكود

كود :

Select Case TextBox1.Text
            Case TextBox1.Text.ToLower, TextBox1.Text.ToUpper, StrConv(TextBox1.Text, VbStrConv.ProperCase)
               '
            Case Else
               '
        End Select