如何使输入满几位数后自动跳到这个控件.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 8 行

比 如 限 制 为 4位 数 ： 
    Private Sub Text1_Change() 
     If Len(Text1.Text) = 4 Then 
     SendKeys "{tab}" ' Set the focus to the next control. 
     End If 
    End Sub 
<END>