[VB6] Finestre figlie MDI e loro eistenza

[Boolean]

Molto semplice.

Function FormAperto(frmName As String) As Boolean
Dim frm As Form
FormAperto = False
For Each frm In Forms
    If frm.Name = frmName Then
        FormAperto = True
        Exit For
    End If
Next frm
End Function

Puoi usare questa funzione così:

If FormAperto("NomeTuoForm") Then
    'Fai così
Else
    'Fai cosà
End If

Il codice l'ho scritto direttamente qui, per cui è probabile che ci sia qualche svista

Boolean