Private Sub Com1_Click()
Me.win.SourceObject = "窗体1"
End Sub
Private Sub Com2_Click()
Me.win.SourceObject = "窗体2"
End Sub
Private Sub Com1_Click()
Me.win.SourceObject = "窗体1"
End Sub
Private Sub Com2_Click()
Me.win.SourceObject = "窗体2"
End Sub
转载于:https://www.cnblogs.com/ince/p/8978084.html