by Sunil Kumar (2 Submissions)
Category: OLE/COM/DCOM/Active-X
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 5th February 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Accepting Numeric Values.
Select Case KeyAscii
Case 8
Exit Sub
Case 46
If InStr(1, txtANum, ".") > 0 Then
KeyAscii = 0
Else
Exit Sub
End If
Case Is < 48, Is > 58
KeyAscii = 0
End Select
End Sub