[3booody]

بارك الله بيك اخي

وهذه فكرة مختلفة ايضآ

كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
       If e.KeyChar = Chr(8) Then Return
       If Not System.Text.RegularExpressions.Regex.IsMatch(e.KeyChar, "[0-9]") Then
           e.Handled = True
       End If
   End Sub