[SaLoOoMX]

كود :

If Char.IsControl(e.KeyChar) = False Then
            If Char.IsDigit(e.KeyChar) Then
            Else
                e.Handled = True
            End If

        End If

تفضل الكود الاخر