一个关于文本框的送分题，望高手赐教！~（在线等！！！！！！）

Question

有两文本框Text1,Tex2,希望在向Text1输入文本的同时，Text2框内的内容与Text1的内容保持同步一致
并当Text1中的文本超过五个汉字时给出提示“文本过长”！~

Answer 1

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) >= 5 Then
KeyAscii = 0
MsgBox "您输入的太长了"
End If
End Sub

Answer 2

Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub