Ayuda simple con formularios

[dornop]

Buenas tardes.

Prueba con esta función:


> Click del menú:

Dim formulario AsNew frmLog
If formularioAbierto(formulario) = FalseThen
formulario.MdiParent = Me
formulario.Show()
EndIf


> Método:


PrivateFunction formularioAbierto(ByVal formulario As Form) AsBoolean
ForEach childForm As Form InMe.MdiChildren
If childForm.Name = formulario.Name Then
ReturnTrue
EndIf
Next
ReturnFalse
EndFunction