请问关掉MDI窗体中所有子窗口的命令

Question

1。请问关掉MDI窗体中所有子窗口的命令
2。获得windows登陆用户名的 命令3。如何判断 程序运行中 当前某个窗体是否打开
4。vb 2005 和 vb .net有何区别

Answer 1

1.Public Sub UnloadFrm()
  Dim Frm As Form
  For Each Frm In formw
     If Frm.MDIChild = True Then
        Unload Frm
     End If
  Next
  Load NewFrm
End Sub

Answer 2

Dim   frm   As   Form   
  For   Each   frm   In   Forms   
          If   frm.Name   <>   "主窗口"   Then   
                  Unload   frm   
          End   If   
  Next   

Answer 3

do while not frmMDImain.ActiveForm is nothing 
    unload frmMDimain.ActiveForm
loop