[سعود]

دمجت الفكرتين سوى

PHP كود :

Public Class Form1
    Private Function isar(txt As String) As Boolean
        Return System.Text.RegularExpressions.Regex.IsMatch(txt, "[ء-ي]{1,}")
    End Function
    Private Function iseng(txt As String) As Boolean
        Return System.Text.RegularExpressions.Regex.IsMatch(txt, "[a-zA-Z]{1,}")
    End Function
    Private Sub w()
        For i As Integer = 0 To 255
            Dim c As Char = Chr(i)
            If Char.IsLetter(c) And isar(c) = True Then
                ListBox2.Items.Add(c)
            ElseIf Char.IsLetter(c) And iseng(c) = True Then
                ListBox1.Items.Add(c)
            ElseIf Char.IsPunctuation(c) Then
                ListBox3.Items.Add(c)
            End If
        Next
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        w()
        lbleng.Text = ListBox1.Items.Count
        lblar.Text = ListBox2.Items.Count
        lbls.Text = ListBox3.Items.Count
    End Sub
End Class 


---

ممكن تضيف كومبوبوكس بعد وتضيف
Else
ListBox4.Items.Add©

---

اجراء التوليد(مشي حالك بالنسبة للاسم)

PHP كود :

Private Sub w()
        For i As Integer = 0 To 255
            Dim c As Char = Chr(i)
            If Char.IsLetter(c) And isar(c) = True Then
                ListBox2.Items.Add(c)
            ElseIf Char.IsLetter(c) And iseng(c) = True Then
                ListBox1.Items.Add(c)
            ElseIf Char.IsPunctuation(c) Then
                ListBox3.Items.Add(c)
            Else
                ListBox4.Items.Add(c)
            End If
        Next
    End Sub