ник: ГлазастыйМышь
поле fFind вешаешь обработчик KeyPress
Private Sub fFind_KeyPress(KeyAscii As Integer)
On Error GoTo err_debug
If KeyAscii > 57 Then KeyAscii = 0
If KeyAscii < 48 Then KeyAscii = 0
exit_here:
Exit Sub
err_debug:
Resume exit_here
End Sub
|