1 在 Form1 中
Private mForm As Form
Private Sub Form_Initialize()
Set mForm = New Form2
mForm .Init Me
End Sub
Private Sub ShowForm()
mForm.Params="Test"
mForm.Show 1
End Sub
Public Sub msgTest()
MsgBox "Test"
End Sub
2 在Form2中
Private mForm As Form
Private mParams As String
Public Sub Init(ByVal valueForm As Form)
Set mForm = valueForm
End Sub
Public Property Get Params() As String
Params = mParams
End Property
Public Property Let Params(ByVal vNewValue As String)
mParams = vNewValue
End Property
Private Sub msgTest()
mForm .msgTest
End Sub