Formulários em VB.NET

    'Verifica se um dado formulário se encontra aberto
    Public Function ObterFormsAbertos(ByVal frm As Form) As Boolean
        Dim f1 As String = frm.Name
        For Each f As Form In My.Application.OpenForms
            If Not f.InvokeRequired Then
                'o nome nao pode ser acedido directamente
                If f.Name = f1 Then
                    ObterFormsAbertos = True
                    Exit For
                End If
                ObterFormsAbertos = False
            End If
        Next
    End Function

    'Abre um formulário
    'Utilização: AbrirForm(frmPesquisar)
    Sub AbrirForm(ByVal frm As Form)
        Dim f As String = frm.Name
        'Obtem todos os forms abertos
        If ObterFormsAbertos(frm) Then
            frm.MdiParent = frmPrincipal
            'Se o form estiver minimizado, tra-lo para o estado normal
            frm.WindowState = FormWindowState.Normal
            'traz o form para a frente de todos
            frm.BringToFront()
        Else
            'define o MdiParent como o form Principal
            frm.MdiParent = frmPrincipal
            frm.Show()
        End If
    End Sub

    'Fecha todos os forms abertos
    Sub FecharFormsAbertos()
        Dim frmChild As Form
        For Each frmChild In frmPrincipal.MdiChildren
            frmChild.Visible = False
        Next
    End Sub

    Sub AbrirFormsEscondidos()
        Dim frmChild As Form
        For Each frmChild In frmPrincipal.MdiChildren
            frmChild.Visible = True
        Next
    End Sub
End Module