只爱陌生人

在文本框的KeyPress事件里写上以下代码：
If (KeyAscii <> 8 And KeyAscii < 48) Or KeyAscii > 57 Then
    KeyAscii = 0
End If
这样就可以使只能在文本框里输入数字。keyascii=8是backspace键。
希望有一点帮助