Private Sub Com1_Click()Me.win.SourceObject = "窗体1"End Sub
Private Sub Com2_Click()Me.win.SourceObject = "窗体2"End Sub