[أبو ناصر]

يمكن استعمال الكود التالي لعرض الحروف لوحدها و الأرقام لوحدها و الرموز لوحدها

كود :

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim arr() As Char = TextBox1.Text.ToCharArray
       For i = 0 To arr.Length - 1

           If (Asc(arr(i)) >= 65 And Asc(arr(i)) <= 90) Or (Asc(arr(i)) >= 97 And Asc(arr(i)) <= 122) Then
               TextBox2.Text &= arr(i)

           ElseIf (Asc(arr(i)) >= 48 And Asc(arr(i)) <= 57) Then
               TextBox3.Text &= arr(i)
           Else
               TextBox4.Text &= arr(i)
           End If
       Next
   End Sub