Private Sub txSN_KeyPress(KeyAscii As Integer) Const xStr As String = "0123456789" KeyAscii = IIf(InStr(xStr & Chr(8),Chr(KeyAscii)),KeyAscii,0) End Sub
Private Sub txSN_KeyPress(KeyAscii As Integer) Const xStr As String = "0123456789" KeyAscii = IIf(InStr(xStr & Chr(8),Chr(KeyAscii)),KeyAscii,0) End Sub