Form之间传递参数及调用过程小技巧

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