不行！

一个工程只能有一个MDI窗体!!!!

对，一个工程中只能有一个MDI窗体！！！！！

那如果一个MDI窗体中有很多个子窗体，最快最简洁的方法是什么呢？

只能有一个啊，好象是把窗体的childform属性设置为true后，然后再判断吧。
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim frm As Form
    For Each frm In Forms
        If Not TypeOf frm Is MDIForm Then

            MsgBox "有子窗体，名为" & frm.Name
            Cancel = True
            Exit Sub
        End If
    Next
End Sub

怎样阻止企图关闭一个仍开着至少一个子窗体的MDI窗体，另?一个MDI如果有很多个子窗体，怎样才是最快最好的介面切换方法呢？我对这个不太熟，所以问题蛮多，呵呵，有劳了，大侠!!

只能有一个MDI窗体，我也是昨晚刚刚知道的。、

现学现卖了

噢！太好了，一起学习呗，我差不多也是个菜菜啦！能帮我你楼上的问题吗？THX！

only one