您好：
在form1中加入以下代码：
Private Sub Command1_Click()
Form2.Text1(0).Text = Me.Text1(0).Text
Form2.Show
End Sub
在form2中假如以下代码
Private Sub Text1_Change(Index As Integer)
If Index = 0 Then
Form1.Text1(0).Text = Me.Text1(0).Text
End If
End Sub