就像在安装程序时的序列号认证一样，我想利用len函数实现在一个text控件内输入一定的字符自动使另一个text控件获取焦点
谢谢了
猪大家新年快乐

.SetFocus

我用的就是获取焦点

我解决了

Private Sub Text1_Change(Index As Integer)
On Error GoTo err340
For i = 0 To 2
If Len(Text1(Index).Text) > 4 Then
Text1(Index + 1).SetFocus
End If
err340:
If err.Number = 340 Then
Command1.SetFocus
Exit Sub
End If
Next
End Sub
这个就是