Formulário MDI

[lcs_sp 0]

E ai pessoal beleza??Estou precisando saber quais formulários dentro de um MDI estão carregados, tentei com "formulario.visible=true", mas ele carrega o formulário ao inves de verificar se está carregado.como fazer este tipo de verificação ?Obrigado

[Dennys Lopes 0]

Tente assim:

 

Public Function FormIsLoaded(stFrmName As String) As BooleanDim frmTmp As FormDim blLoaded As BooleanblLoaded = FalsestFrmName = UCase$(stFrmName)For Each frmTmp In Forms	If (UCase$(frmTmp.Name) = stFrmName) Then		blLoaded = True		Exit For	End IfNextFormIsLoaded = blLoadedEnd FunctionPrivate Sub Command2_Click()If (FormIsLoaded("Form2")) Then MsgBox "Formulário Aberto"End Sub

[lcs_sp 0]

Grande Dennys Lopes,vlw era isso mesmo que eu estava procurando