Private Sub Textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57 'ตัวเลข 0-9
'Case 42 To 47 'อักขระพิเศษ
Case Keys.Back 'Backspace
Case Else
e.Handled = True
End Select
End Sub
ขอให้โชคดีนะครับ