CodeItBetter Programming Another VB Programming Blog

'Controls - How to Prevent the user from entering invalid keys in a text box.
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case Is < 32               ' Control keys are OK.
    Case 48 To 57              ' This is a digit.
    Case Else                  ' Reject any other key.
        KeyAscii = 0
    End Select
End Sub