文本框

aslxt

假如窗体有Text0和Text2两个文本框，要在Text0中设置规则：
Private Sub Text0_Change()
  If Len(Text0.Text) >= 5 Then
    Me.Text2.SetFocus
    'MsgBox "超过5个字符了！"
      End If
End Sub