[مساعدة]

تفضل الكود

كود :

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    ListBox1.Sorted = True
    ListBox2.Sorted = True
    ListBox1.Items.Clear()
    ListBox2.Items.Clear()
    Dim arr() As String = TextBox1.Text.Trim.Split(vbNewLine).ToArray
    For Each s As String In arr
        If Regex.Match(s, "[a-zA-Z]").Value <> "" Then
            ListBox1.Items.Add(s.Trim)
        Else
            ListBox2.Items.Add(s.Trim)
        End If
    Next
End Sub