‘TextChanged事件
Dim tx As WinForm.TextBox = e.SenderIf tx.Text.Length = 5 Then Sendkeys.Send("{TAB}") '模拟按Tab键,选择下一个控件End If