[aftfm]

تفضل بارك الله فيك جرب هذا الكود

كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress 
        If IsNumeric(e.KeyChar) Then 
            e.Handled = True 
        End If 
    End Sub