[اسامه الهرماوي]

هذا الكود يقوم بتنقية ال TextBox من الأرقام.
تفضلي:

كود :

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       TextBox1.Select(TextBox1.Text.Length, 0)
       Dim s As Integer
       For n As Integer = 0 To 9
           Do Until s = -1
               s = TextBox1.Text.IndexOf(CStr(n))
               If s < 0 Then Exit Do

               TextBox1.Text = TextBox1.Text.Remove(s, 1)

           Loop
           s = 0
       Next

   End Sub