'form1中 Public aForm1 As String Private Sub Form_Load() aForm1 = "我在Form1" End Sub 'form2中 Private Sub Form_Load() Print Form1.aForm1 End Sub