VB关闭一个窗体，其余打开的窗体全部关闭？

Question

怎样通过VB关闭一个窗体，其余打开的窗体全部关闭？

Answer 1

Private Sub Form_Unload(Cancel As Integer)Dim frm As Form
    
    ' 在窗体集合中循环
    ' 从内存中卸载所有的窗体
    For Each frm In Forms
        Unload frm           '  卸载窗体
        Set frm = Nothing   ' 从内存中删除窗体
    NextEnd Sub

Answer 2

还有更简单的办法Private Sub Form_Unload(Cancel As Integer)EndEnd Sub呵呵

Answer 3

楼上不同楼主题义，END直接结束程序进程，而楼主只要关闭窗体，进程则不一定结束。还是一楼正解。