Formulario activo?

[jsolis]

Public Function isOpen(ByRef formulario As Form) As Boolean
'' Devuelve TRUE si el formulario en cuestion esta cargado

Dim mdichld() As Form = Me.MdiChildren
If Me.MdiChildren.Length = 0 Then
formulario.MdiParent = Me
Return False ' No hay formularios cargados
Else
Dim myform As Form
For Each myform In mdichld
If myform.Name = formulario.Name Then
Dim opened As Form
MsgBox("El formulario se encuentra abierto", MsgBoxStyle.Information, "Atención")
CType(myform, Form).Focus()
Return True ' El formulario esta cargado
End If
Next
formulario.MdiParent = Me
Return False ' El formulario no esta cargado
End If

End Function