1 in Form1 Private mForm As FormPrivate Sub Form_Initialize () Set mForm = New Form2 mForm .Init Me End SubPrivate Sub ShowForm () mForm.Params = "Test" mForm.Show 1End SubPublic Sub msgTest () MsgBox "Test" End Sub2 in Form2 Private MFORM AS FORM Private MParams As Stringpublic SET MFORM = ValueFornd Subpublic Property Get params () AS String params = mParamsend Property
Public Property Let Params (Byval VNewValue As String) MParams = VNewValueEnd PropertyPrivate Sub Msgtest () MForm .msgtestend Sub
