在MDI应用程序中如何判断一个子窗体已经打开

For   Each   frm   As   Form   In   Me.MdiChildren  
                          If   frm.Name   =   "表单name"   Then  
                                  frm.Activate()  
                                  Exit   Sub  
                          else  
                                  dim   frm1   as   new   表单class  
                                  frm1.show()  
                          End   If  
                  Next