VB中两个TEXT联动

Private Sub Text1_Change()
Dim Frm As Form
For Each Frm In Forms
If Frm.Caption = "你第二个窗口的标题" Then '判断第二个窗体存在，才做同步动作
Form2.text2.Text = Text1.Text '这儿直接用第二个窗体的名子来调用
Exit Sub
End If
Next
End Sub
如果变动比较频繁，这个效率可能比较低，如果你能保证2个窗体都始终存在，那可以去掉判断
Private Sub Text1_Change()
Form2.text2.Text = Text1.Text
End Sub

Private Sub Text1_Change()
form2.text2.text =form1.text1.text
End Sub

只要form1中text1内数据改变 form2 中text2内显示的内容和text1显示的内容一样

一种比较简单的方法，做好一个模块，定义一个公共变量，form1中text的内容赋值给这个变量，在打开form2时，读取这个变量