Utilizar el Patron Singleton con formularios MDI

Objetivo: Que desde una aplicación Windows sólo podamos tener una forma hija abierta.

-------1. En la forma hija

'Variable global
Private Shared frmInstance As frmReport = Nothing

'Finalmente crearemos una función shared que será la que finalmente controlara la creación o manejo de la instancia del formulario, logrando obtener solo un formulario 'abierto para este form1.


'Función que verifica sola a una instancia del form1
Public Shared Function Instance() As form1
If frmInstance Is Nothing OrElse frmInstance.IsDisposed = True Then
frmInstance = New form1
End If
frmInstance.BringToFront()
Return frmInstance
End Function

'2-En la forma padre.
'Ahora en el padre escribiremos el llamado al hijo para crear la instancia, o si ya esta 'creada, entonces pondrá el formulario hijo en frente para que lo podamos ver.

Dim frmHijo as form1 = form1.Instance
frmHijo.MdiParent = Me
frmHijo.Show

Referencia:
href="http://www.mentores.net/articulos/Percynet_EditorTexto.htm"