Private Sub Text1_Change()Text2.Text = "text1内容已更改为" & Text1.TextEnd Sub
用change事件啊，只要检测到输入就给第二个文本框赋值
