Dim IsFormLoaded As Boolean = False
            Dim myFrm As Form
            For Each myFrm In Me.MdiChildren
                If myFrm.Name = "frmBuscado" Then
                    If myFrm.WindowState = FormWindowState.Minimized Then
                        myFrm.WindowState = FormWindowState.Normal
                    Else
                        myFrm.BringToFront()
                    End If
                    IsFormLoaded = True
                    Exit For
                End If
            Next
            myFrm = Nothing

            If IsFormLoaded = False Then
                Dim myFrmBuscado As New frmBuscado
                With myFrmBuscado
                    .MdiParent = Me
                    .Show()
                End With
                myFrmBuscado = Nothing
            End If

Me.MdiChildren

Application.OpenForms