posto a memoria, quindi se canno non mi uccidere

codice:
Public Function IsFormLoaded(sFormName as string) as boolean
    dim oForm as form
    isformloaded = false
    for each oForm in vb.forms
        if oform.name = sFormName Then
          IsFormLoaded = True
          Exit for
        end if
    next oForm
end function
il for each non è proprio performante ma sono le 3 di notte e sono a corto di caffeina