gestione di una form via codice [VB6]

[sebamix]

Utilizzi l'insime di oggetti Forms
es:

public function IsFormLoad(strFormName as string) as boolean
    IsFormLoad=false
    dim objForm as form
    for each objForm in Forms
        if objForm.Name=strFormName Then
            IsFormLoad=True
            Exit For
        End If
    next objForm
    set objForm=nothing
end function

' ... dove ti serve
if IsFormLoad("frmPippo")=True Then
' ...

Codice scritto al volo, ma dovrebbe funzionare.