VB 6.0 Tutorial

Numeric Text Box in VB6.0

Private Sub Text1_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii

      Case vbKey0 To vbKey9

      Case vbKeyBack, vbKeyClear, vbKeyDelete

      Case vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab

      Case Else

        KeyAscii = 0

        Beep

    End Select

End Sub