Evitar abrir mas de un MDIChild

[Highlander]

Código:

 'Variable pública.
    Private Shared ChildInstance As frmTurnosConsultas = Nothing

    'controla que sólo exista una instancia del formulario.
    Public Shared Function Instance() As frmTurnosConsultas
        If ChildInstance Is Nothing OrElse ChildInstance.IsDisposed = True Then
            ChildInstance = New frmTurnosConsultas
        End If
        ChildInstance.BringToFront()

        Return ChildInstance
    End Function

Luego cuando quieras abrir el form deberas instanciar primero

Código:

 Dim frmTurnosConsultas As frmTurnosConsultas = frmTurnosConsultas.Instance
        frmTurnosConsultas.MdiParent = Me
        frmTurnosConsultas.Show()

Si la form ya esta abierta la traera el frente, quiza lo puedas aplicar a tu caso.