command1的点击过程里写上form2.show.
在form2加载过程,即form2的load过程里写上labelx.caption=form1.text1.text 大概是这样。
要得到其他窗体的数据,加上xxx.xxx.xxx这样。
Private Sub Command1_Click()
Form2.Visible = True
Form2.Label1.Caption = Form1.Text1.Text
End Sub
Private Sub Command1_Click()
Form2.Label1.Caption = Form1.Text1.Text
Form2.Show
End Sub
form2.label1.caption=form1.text1.text 即可