Function Caricata(ByVal strNomeMaschera As String) As Boolean
 ' Restituisce vero se la maschera specificata è caricata in visualizzazione Struttura.

    Const conStatoOggettoChiuso = 0
    Const conVisualizzazioneStruttura = 0

    If SysCmd(acSysCmdGetObjectState, acForm, strNomeMaschera) <> conStatoOggettoChiuso Then
        If Forms(strNomeMaschera).CurrentView <> conVisualizzazioneStruttura Then
            Caricata = True
        End If
    End If

End Function