我想让这个文本框只能输入数字，写的代码如下：
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim ab2, ab5 As Integer
Dim ab4 As String = ""
ab5 = 1
For ab2 = 1 To Len(TextBox1.Text)
Dim i As String = AscW(Mid(TextBox1.Text, ab2, 1))
If i > 47 And i < 58 Then
ab4 = ab4 + Mid(TextBox1.Text, ab5, 1)
ab5 = ab5 + 1
Else
Beep()
End If
ab2 = ab2 + 1
Next
TextBox1.Text = ab4
End Sub
可执行结果是只能输入一个数字，如输入第2个字，也只有第一位数字，并且在第2位输入非数字也不叫了。
好象是循环出问题，不知到底错在哪？
请各位大侠帮忙看下。

能给我讲讲这个事件吗?

我没有找到它的资料........