在 form2的close事件中,call form1中的某个sub
Dim WithEvents frm2 As FormPrivate Sub frm2_Unload(Cancel As Integer)MsgBox TrueEnd SubPrivate Sub Form_Load()Set frm2 = form2frm2.ShowEnd Sub