For numeric validation -
Private Sub txt_KeyPress
(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles txt.KeyPress
If Char.IsDigit(e.KeyChar) = False And Char.IsControl(e.KeyChar) = False Then
e.Handled = True
End If
End Sub