VB6.0 : Set textbox to Numeric

I think you might see some quite interesting and unexpected results from that code. This version might work slightly better...

Expand|Select|Wrap|Line Numbers

1. Private Sub txtProDate_KeyPress(KeyAscii As Integer)
2.   Select Case KeyAscii
3.     Case Is < 32
4.       ' Ignore
5.     Case Asc("0") To Asc("9")
6.       ' Ignore
7.     Case Else
8.       KeyAscii = 0
9.       Beep            ' Sound error signal.
10.   End Select
11. End Sub

May 17 '07 #4