Private Sub m1_Click()
Dim frm As Form
For Each frm In Forms
If frm.Name <> "MDIForm1" Then
If frm.MDIChild Then
MsgBox "请退出 " & frm.Name, vbInformation
Exit Sub
End If
End If
Next
Form1.Show
End Sub
Private Sub m2_Click()
Dim frm As Form
For Each frm In Forms
If frm.Name <> "MDIForm1" Then
If frm.MDIChild Then
MsgBox "请退出 " & frm.Name, vbInformation
Exit Sub
End If
End If
Next
Form2.Show
End Sub