可以在FORM2定义 Public a As String
在FORM1 打开FORM2时
TEXTBOX.text="s001"
FORM2.a=TEXTBOX.text
FORM2.show
Private Sub cmd确认_Click()
If Text1.Text = "s001" Then
Form2.Show
Form2.Print Text1.Text
End If
End Sub
form2.print form1.text1.text
比如form2里有个text1,那么在form1的form2.show之前:
load form2
form2.text1 = form1.text1
form2.show