Public Sub Init()

    Dim strList As String

    Set m_oCommands = New cCommands

    With m_oCommands
        With .Add("POPUPBUTTON")
            .category = "Bearbeiten"
            .name = "Popup-Button"
            .ImageKey = "flowfact"
            .DescriptionText = "Dieser Button hat selbst keinerlei Funktion und dient lediglich der Strukturierung der Ribbon. Nutzen Sie diesen Button, wenn Sie andere Buttons unter einem Button zusammenlegen wollen. Tragen Sie dazu diesen Button mit dem Style ""ButtonPopupIconAndCaptionBelow"" in die RibbonMasterUserdefined.xml ein." & vbCrLf & vbCrLf & "Dieser Tooltip kann in der RibbonMasterUserdefined.xml mit Hilfe des Attributs ""description"" überschrieben werden."
        End With
        
        With .Add("ATTACHMENTADDFILE")
            .category = "Bearbeiten"
            .name = "Datei(en) hinzufügen"
            .ImageKey = "bmpADDFILE"
            .DescriptionText = "Fügt eine Datei oder mehrere Dateien als Anhang hinzu."
        End With
        
        With .Add("ATTACHMENTDELFILE")
            .category = "Bearbeiten"
            .name = "Anhang löschen"
            .ImageKey = "bmpATTACHMENTDELFILE"
            .DescriptionText = "Löscht alle markierten Anhänge. Ist kein Anhang markiert, werden auf Nachfrage alle Anhänge gelöscht."
        End With
        
        With .Add("ATTACHMENTADDFILELINK")
            .category = "Bearbeiten"
            .name = "Dateiverknüpfung hinzufügen"
            .ImageKey = "bmpADDFILELINK"
            .DescriptionText = "Fügt eine Dateiverknüpfung als Anhang hinzu."
        End With
        
        With .Add("ATTACHMENTADDFOLDER")
            .category = "Bearbeiten"
            .name = "Verzeichnis hinzufügen"
            .ImageKey = "bmpADDFOLDER"
            .DescriptionText = "Alle Dateien eines Verzeichnisses als Anhang hinzufügen."
        End With
        
        With .Add("ATTACHMENTADDFOLDERLINK")
            .category = "Bearbeiten"
            .name = "Verzeichnisverknüpfung hinzufügen"
            .ImageKey = "bmpADDFOLDERLINK"
            .DescriptionText = "Fügt eine Verzeichnisverknüpfung als Anhang hinzu."
        End With
        
        With .Add("MAKEANSPRECHPARTNER")
            .category = "Sonstiges"
            .name = "Neuer Ansprechpartner"
            .ImageKey = "bmpMAKEANSPRECHPARTNER"
            .DescriptionText = "Erstellt einen Ansprechpartner für die aktuell angezeigte Adresse."
        End With

       With .Add("CONFIGUREADMINRIBBON")
            .category = "Administration"
            .name = "Menüleiste für Profile anpassen"
            .ImageKey = "bmpRibbonConf"
            .DescriptionText = "Die Konfiguration zum profilabhängigen Ein- und Ausblenden von Funktionen in der Menüleiste wird gestartet."
            .Selectable = False
        End With

        With .Add("CONFIGURERIBBON")
            .category = "Administration"
            .name = "Menüleiste anpassen"
            .ImageKey = "bmpRibbonConf"
            .DescriptionText = "Die Konfiguration zum benutzerabhängigen Ein- und Ausblenden von Funktionen in der Menüleiste wird gestartet."
            .Selectable = False
        End With
        
        With .Add("CONFIGURESHORTCUT")
            .category = "Administration"
            .name = """Meine Funktionen"" anpassen"
            .ImageKey = "bmpFavConf"
            .DescriptionText = "Die Konfiguration zum benutzerabhängigen Ein- und Ausblenden von Funktionen im Bereich ""Meine Funktionen"" wird gestartet."
            .Selectable = False
        End With
        
        With .Add("REFRESHRIBBON")
            .category = "Entwicklungstools"
            .name = "RIBBON neuladen"
            .ImageKey = "bmpRESETSCRIPTING"
            .Selectable = True
        End With
        
        With .Add("RELOADNAVIGATOR")
            .category = "Entwicklungstools"
            .name = "Hauptnavigation neuladen"
            .DescriptionText = "Die Hauptnavigation wird mit den aktuellen Einstellungen neu geladen."
            .ImageKey = "bmpRESETSCRIPTING"
            .Selectable = True
        End With
        
        With .Add("REFRESHNAVIGATOR")
            .category = "Entwicklungstools"
            .name = "Hauptnavigation aktualisieren"
            .DescriptionText = "Die Hauptnavigation wird aktualisiert."
            .ImageKey = "bmpRESETSCRIPTING"
            .Selectable = False
        End With
        
        With .Add("fcmdFile")
            .category = "Menüs"
            .name = "Datei"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUEXTRAS")
            .category = "Menüs"
            .name = "Extras"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUARCHIV")
            .category = "Menüs"
            .name = "Archiv"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUMAIL")
            .category = "Menüs"
            .name = "E-Mail"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUGEOANALYZER")
            .category = "Menüs"
            .name = "GeoAnalyzer"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUANSICHT")
            .category = "Menüs"
            .name = "Ansicht"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUFENSTER")
            .category = "Menüs"
            .name = "Fenster"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUADMIN")
            .category = "Menüs"
            .name = "Administration"
            .typ = ssTypeMenu
            .ImageKey = "bmpOPTIONS"
            .Selectable = False
        End With

        With .Add("MNUPP")
            .category = "Menüs"
            .name = "PostPerfect"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUINTERNET")
            .category = "Menüs"
            .name = "Internet"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUKALENDER")
            .category = "Menüs"
            .name = "Kalender"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUKURSE")
            .category = "Menüs"
            .name = "Kurse"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUDOKUMENTE")
            .category = "Menüs"
            .name = "Dokumente"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNULISTEN")
            .category = "Menüs"
            .name = "Listen"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MNUHELP")
            .category = "Menüs"
            .name = "?"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("MERGEADRESSEN")
            .category = "Sonstiges"
            .name = "Adressen zusammenlegen"
            .ImageKey = "bmpADZUSAMMEN"
            .DescriptionText = "Es werden zwei Adressen zusammengelegt.%nl%Alle Aktivitäten der zweiten Adresse werden mit der ersten Adresse verknüpft."
        End With

        With .Add("MONATSUEBERSICHT")
            .category = "Sonstiges"
            .name = "Monatsübersicht"
            .ImageKey = "bmpCALENDAR"
            .DescriptionText = "Öffnet die Monatsübersicht in einem neuen Fenster."
        End With
        
        With .Add("HOME")
            .category = "Sonstiges"
            .name = "Portalseite"
            .ImageKey = "bmpHOME"
            .DescriptionText = "Die Portalseite wird erneut geladen und aktualisiert."
        End With
        
        With .Add("UPDATEESTATEPICTURE")
            .category = "Sonstiges"
            .name = "Bildreferenzen aktualisieren"      '** UpdateEstatepicture Tabelle
            .ImageKey = "bmpOBJ"
            .DescriptionText = "Die Referenzen aller Objektbilder werden in der Datenbank aktualisiert."
        End With

        With .Add("QUIT")
            .category = "Datei"
            .DefaultFatherID = "fcmdFile"
            .name = "Beenden"
            .DescriptionText = "FLOWFACT wird beendet."
            .Selectable = False
        End With

        With .Add("SUCHEN")
            .category = "Bearbeiten"
            .name = "Suchen"
            .ImageKey = "bmpSUCHEN"
            .Shortcut = ssF9
            .DescriptionText = "Möglichkeit die vorhandenen Daten nach konkreten Suchbegriffen zu durchsuchen."
        End With

        With .Add("EXTENDEDSEARCH")
            .category = "Bearbeiten"
            .name = "Erweiterte Suche"
            .ImageKey = "bmpEXTENDEDSEARCH"
            .DescriptionText = "Mit Hilfe der Erweiterten Suche können Sie besonders komplexe Suchfunktionen durchführen.%nl%Die definierten Suchen können gespeichert werden und werden dann in der Liste zur Schnellauswahl angezeigt."
        End With


        With .Add("POPANDSMTP")
            .category = "Mail"
            .name = "Mails empfangen/senden"
            .ImageKey = "bmpSENDENEMPFANGEN"
            .DescriptionText = "Der Manuelle Abruf für alle in FLOWFACT eingerichteten und aktiven Postfächer wird gestartet. Im Anschluss werden alle E-Mails im Postausgang versendet."
        End With
        
        With .Add("MAILSEND")
            .category = "Mail"
            .name = "Versenden"
            .ImageKey = "bmpSENDEN"
            .DescriptionText = "Legt die E-Mail in den Postausgang."
        End With
        
        
        With .Add("MAILANSWER")
            .category = "Mail"
            .name = "Antworten"
            .ImageKey = "bmpMAILANSWER"
            .DescriptionText = "Dem Absender der ausgewählten Nachricht antworten."
        End With
        
        With .Add("MAILFORWARD")
            .category = "Mail"
            .name = "Weiterleiten"
            .ImageKey = "bmpMAILFORWARD"
            .DescriptionText = "Die ausgewählte Nachricht an einen anderen Empfänger weiterleiten."
        End With

        With .Add("SMTP")
            .category = "Mail"
            .name = "Mails senden"
            .ImageKey = "bmpSENDEN"
            .DescriptionText = "Alle im Postausgang befindlichen E-Mails werden versendet."
        End With

        With .Add("GESENDET")
            .category = "Mail"
            .name = "Gesendet"
            .ImageKey = "bmpGESENDET"
            .DescriptionText = "Der Ordner mit den gesendeten E-Mails wird geöffnet."
        End With


        With .Add("ENTWURF")
            .category = "Mail"
            .name = "Entwürfe"
            .ImageKey = "ENTWURF"
            .DescriptionText = "Der Entwurfsordner für E-Mails wird geöffnet."
        End With

        With .Add("POSTAUSGANG")
            .category = "Mail"
            .name = "Postausgang (Mail)"
            .ImageKey = "bmpPOSTAUSGANG"
            .DescriptionText = "Der Postausgangsordner mit den noch zu versendenden E-Mails wird geöffnet."
        End With
        
        With .Add("POSTAUSGANGREGISTERED")
            .category = "Mail"
            .name = "Postausgang (Einschreiben)"
            .ImageKey = "bmpPOSTAUSGANG"
            .DescriptionText = "Der Postausgangsordner zeigt die noch zu beantwortenden Einschreibemails an."
        End With

        With .Add("POSTEINGANG")
            .category = "Mail"
            .name = "Posteingang"
            .ImageKey = "bmpPOSTEINGANG"
            .DescriptionText = "Der Posteingangsordner für E-Mails wird geöffnet."
        End With

        With .Add("SPAMMANAGER")
            .category = "Mail"
            .name = "Spam-Manager"
            .ImageKey = "bmpSPAM"
            .DescriptionText = "Der Spam-Manager gibt Ihnen einen Überblick über alle E-Mails, die seitens Ihres Providers als Spam-E-Mails identifiziert wurden."
        End With

        With .Add("DISTRIBUTIONLIST")
            .category = "Mail"
            .name = "Verteiler"
            .ImageKey = "bmpDISTRIBUTIONLIST"
            .DescriptionText = "Das Fenster für die Verteilerlisten wird geöffnet."
        End With

        With .Add("NEUEMAIL")
            .category = "Mail"
            .name = "Neue E-Mail"
            .ImageKey = "bmpNEWMAIL"
            .DescriptionText = "Erstellt eine neue Aktivität vom Typ E-Mail."
        End With

        With .Add("MAILMANAGER")
            .category = "Mail"
            .name = "Mailmanager"
            .ImageKey = "bmpMAILMANAGER"
            .DescriptionText = "Der Mailmanager wird gestartet. %nl%Mit dem FLOWFACT Mail-Manager können Sie in Ihrem FLOWFACT Regeln definieren, um eingehende Nachrichten automatisch mit einem Merkmal zu versehen, bestimmte Nachrichten mit einem Projekt oder mit Adressen zu verknüpfen und bestimmte Nachrichten automatisch zu beantworten."
        End With

        With .Add("GEOANALYZER_STARTEN")
            .category = "GeoAnalyzer"
            .name = "GeoAnalyzer starten"
            .ImageKey = "bmpGEOANALYZER"
            .DescriptionText = "Startet den Geo-Analyzer zur individuellen Bearbeitung des Kartenmaterials."
        End With
        

        With .Add("GEOANALYZER_SHOWACTIVE")
            .category = "GeoAnalyzer"
            .name = "Adresse im Geoanalyzer anzeigen"
            .ImageKey = "bmpGEOANALYZERAD"
            .DescriptionText = "Die angezeigte Adresse wird im GeoAnalyzer angezeigt sofern dieser installiert ist."
        End With

        With .Add("GEOANALYZER_ROUTE")
            .category = "GeoAnalyzer"
            .name = "Route planen"
            .ImageKey = "bmpGEOANALYZERROUTE"
            .DescriptionText = "Die Route von Ihrer Firmenadresse aus zur aktiven (angezeigten) Adresse oder zum aktiven (angezeigten) Objekt wird berechnet und im GeoAnalyzer angezeigt."
        End With

        With .Add("GEOANALYZER_SHOWLIST")
            .category = "GeoAnalyzer"
            .name = "Liste anzeigen"
            .ImageKey = "bmpGEOANALYZERLIST"
            .DescriptionText = "Alle in der Liste aufgelisteten Adressen oder Objekte werden im GeoAnalyzer in einer Übersichtskarte angezeigt."
        End With

        With .Add("INDEXSUCHE")
            .category = "Bearbeiten"
            .name = "Indexsuche"
            .ImageKey = "bmpINDEXSUCHE"
            .DescriptionText = "Die Indexsuche wird gestartet. Damit die Indexsuche genutzt werden kann, muss der Volltextkatalog initialisiert sein."
        End With

        With .Add("AD")
            .category = "Fenster"
            .name = "Adressen"
            .ImageKey = "bmpAD"
            .Shortcut = ssCtrlS
            .DescriptionText = "Das Fenster für die Adressen wird geöffnet."
        End With
        
        With .Add("FERNWARTUNG")
            .category = "Hilfe"
            .name = "Fernwartung starten"
            .ImageKey = "bmpHILFE"
            .Shortcut = ssF2
            .DescriptionText = "Die Fernwartung zur Unterstützung durch FLOWFACT-Mitarbeiter wird gestartet."
        End With
        
        With .Add("FLOWFACT_UPDATE_HIGHLIGHTS")
            .category = "Hilfe"
            .name = "Update Highlights"
            .ImageKey = "bmpHighlight"
            .DescriptionText = "Hier können Sie sich informieren, welche Highlights die verschiedenen FLOWFACT Updates für Sie bereithalten. Auf einer Timeline dargestellt finden Sie Details zu neuen Funktionen und Optimierungen. "
        End With
        
        If ValidCompany Then
            With .Add("LIZENZ")
                .category = "Fenster"
                .name = "Lizenzcodes"
                .ImageKey = "bmpSECURITY"
                .Shortcut = ssF12
            End With
        End If

        If ValidCompany Then
            With .Add("LIZENZSHOW")
                .category = "Fenster"
                .name = "Lizenzcodefenster"
                .ImageKey = "bmpSECURITY"
            End With
        End If

        With .Add("FCMDCONNEX")
            .category = "Fenster"
            .name = "Connex"
            .ImageKey = "bmpCONNEX"
            .DescriptionText = "Das Fenster für den Connex wird geöffnet. Der Connex unterstützt Sie bei der Replikation von Daten zwischen mehreren nicht miteinander vernetzten Rechnern."
        End With

        With .Add("OPENXMLEXPORT")
            .category = "Datei"
            .name = "Export von XML-Daten"
            .ImageKey = "bmpXMLEXPORT"
        End With

        With .Add("IMMOXMLIMPORT")
            .category = "Datei"
            .name = "Import von XML-Dateien"
            .ImageKey = "bmpXMLIMPORT"
        End With
        
        With .Add("HAUSBANKPDFIMPORT")
            .category = "Datei"
            .name = "Hausbank-PDFImport"
            .ImageKey = "bmpXMLIMPORT"
        End With

        With .Add("ASSISTENTGRUND")
            .category = "Hilfe"
            .name = "Grundeinrichtungs-Assistent"
            .ImageKey = "bmpSTDWIZ"
            .DescriptionText = "Der Grundeinrichtungs-Assistent unterstützt Sie bei der Ersteinrichtung von FLOWFACT."
        End With

        With .Add("CHECK4UPDATE")
            .category = "Hilfe"
            .name = "FLOWFACT aktualisieren"
            .ImageKey = "bmpCHECK4UPDATE"
            .DescriptionText = "Prüft ob neue Updates für Ihre FLOWFACT-Version zur Verfügung stehen."
        End With

        With .Add("SHOWADWEB")
            .category = "Bearbeiten"
            .name = "Adresse in Google Maps anzeigen"
            .ImageKey = "bmpINTERNETAD"
            .DescriptionText = "Die ausgewählte Adresse bzw. das ausgewählte Objekt wird in Google Maps angezeigt."
        End With

        With .Add("SETUPADD")
            .category = "Hilfe"
            .name = "MSOffice AddIns installieren"
            .ImageKey = "bmpOPTIONS"
            .Selectable = False
            .DescriptionText = "Die FLOWFACT AddIns für Microsoft Office werden installiert."
        End With

        With .Add("ASSISTENTSCHNITT")
            .category = "Hilfe"
            .name = "Schnittstellen-Assistent"
            .ImageKey = "bmpINTERNETBOERSENWIZ"
            .DescriptionText = "Der Schnittstellen-Assistent unterstützt Sie bei der Neuanlage von Immobilienbörsen."
        End With

        With .Add("DETAILS")
            .category = "Fenster"
            .name = "Details"
            .ImageKey = "bmpDETAILS"
            .DescriptionText = "Das Fenster für die Adress-Details wird geöffnet."
        End With

        With .Add("IMPORT")
            .category = "Datei"
            .name = "Importassistent"
            .ImageKey = "bmpIMPORT"
            .DescriptionText = "Der Importassistent wird gestartet.%nl%Mit dem Importassistent können Adressbestände aus Text- und Excel-Dateien (nur *.xls) importiert werden."
        End With

        With .Add("OBJ")
            .category = "Fenster"
            .name = "Objekte"
            .ImageKey = "bmpOBJ"
            .Shortcut = ssCtrlO
            .DescriptionText = "Das Fenster für die Objekte wird geöffnet."
        End With

        With .Add("ANF")
            .category = "Fenster"
            .name = "Anfragen"
            .ImageKey = "bmpANF"
            .Shortcut = ssCtrlF
            .DescriptionText = "Das Fenster für die Anfragen wird geöffnet."
        End With

        With .Add("AKTEN")
            .category = "Fenster"
            .name = "Akten"
            .ImageKey = "bmpAKTEN"
            .DescriptionText = "Das Fenster für die Akten wird geöffnet."
        End With

        With .Add("BUSINESSPROCESS")
            .category = "Fenster"
            .name = "Prozessvorlagen"
            .ImageKey = "bmpBUSINESSPROCESSTEMPLATE"
            .DescriptionText = "Das Fenster für die Prozessvorlagen wird geöffnet."
        End With

        With .Add("BUSINESSPROCESSDESIGNER")
            .category = "Fenster"
            .name = "Prozessdesigner"
            .ImageKey = "bmpBUSINESSPROCESSDESIGNER"
            .DescriptionText = "Der Prozess Designer wird gestartet. Mit Hilfe des Prozess Designers können Sie grafisch neue Prozesse anlegen bzw. bearbeiten. Diese Funktion steht nur Benutzern zur Verfügung, die vom FLOWFACT Administrator in der Benutzerverwaltung dafür freigeschaltet worden sind."
        End With

        With .Add("BUSINESSPROCESSDASHBOARD")
            .category = "Fenster"
            .name = "Prozessübersicht"
            .ImageKey = "bmpBUSINESSPROCESS"
            .DescriptionText = "Für die ausgewählte Prozessvorlage wird eine Übersicht aller laufenden Prozesses auf Basis der Prozessvorlage angezeigt. In einer Liste werden alle überfälligen Prozessschritte der laufenden Prozesse angezeigt."
        End With
        
        With .Add("BUSINESSPROCESSCREATE")
            .category = "Prozesse"
            .name = "Prozess erzeugen"
            .ImageKey = "bmpBUSINESSPROCESSCREATE"
            .DescriptionText = "Ein neuer Prozess wird auf Basis der ausgewählten Prozessvorlage initiiert."
        End With
        
        With .Add("BUSINESSPROCESSSTART")
            .category = "Prozesse"
            .name = "Prozess starten"
            .ImageKey = "bmpBUSINESSPROCESSSTART"
            .DescriptionText = "Ein neuer Prozess wird auf Basis der ausgewählten Prozessvorlage initiiert und direkt gestartet."
        End With
        
        With .Add("BUSINESSPROCESSSTOP")
            .category = "Prozesse"
            .name = "Prozess stoppen"
            .ImageKey = "bmpBUSINESSPROCESSSTOP"
            .DescriptionText = "Der angezeigte Prozess wird gestoppt."
        End With
        
        With .Add("OBJECTDASHBOARD")
            .category = "Fenster"
            .name = "Objektübersicht"
            .ImageKey = "bmpBUSINESSPROCESS"
            .DescriptionText = "Die Objektübersicht wird gestartet. Mit der Objektübersicht erhalten Sie eine Gesamtübersicht zum Objekt, in der die Termine, Ansprechpartner und laufenden bzw. überfälligen Prozesse übersichtlich dargestellt werden.%nl% %nl%Hinweis: Die Objektübersicht steht Ihnen erst zur Verfügung, wenn das FLOWFACT Process Management genutzt wird."
        End With
        
        With .Add("PROJEKTE")
            .category = "Fenster"
            .name = "Projekte"
            .ImageKey = "bmpPROJEKTE"
            .Shortcut = ssCtrlP
            .DescriptionText = "Das Fenster für die Projekte wird geöffnet."
        End With

        With .Add("IMMONET")
            .category = "Fenster"
            .name = "Portalübertragung"
            .ImageKey = "bmpOBJEKTEONLINE"
            .Shortcut = ssCtrlI
            .DescriptionText = "Das Fenster für die Übertragung zu den Internetbörsen wird geöffnet."
        End With

        With .Add("ARCHIV")
            .category = "Fenster"
            .name = "Archiv"
            .ImageKey = "bmpARCHIV"
            .DescriptionText = "Das Fenster für das Archiv wird geöffnet."
        End With

        With .Add("ISR")
            .category = "Fenster"
            .name = "Selektion"
            .ImageKey = "bmpISR"
            .DescriptionText = "Das Fenster für die Selektion wird geöffnet. Das Fenster Selektion stellt Ihnen alle Funktionen zur Verfügung, die Sie für die Suche von Interessenten bzw. Objekten, der Erstellung von Einzel- bzw. Massen-Offerten (per Post-, Fax- oder E-Mail-Versand) oder der visualisierten Darstellung am Bildschirm benötigen."
        End With

        With .Add("VERTRAEGE")
            .category = "Fenster"
            .name = "Verträge"
            .ImageKey = "bmpVERTRAEGE"
            .DescriptionText = "Das Fenster für die Verträge wird geöffnet."
        End With

        With .Add("AKT")
            .category = "Fenster"
            .name = "Aktivitäten"
            .ImageKey = "bmpAKT"
            .Shortcut = ssCtrlT
            .DescriptionText = "Das Fenster für die Aktivitäten wird geöffnet."
        End With
        
        With .Add("VOR")
            .category = "Fenster"
            .name = "Wiedervorlage"
            .ImageKey = "bmpVOR"
            .Shortcut = ssCtrlW
            .DescriptionText = "Die Wiedervorlage wird angezeigt."
        End With

        With .Add("CALENDAR")
            .category = "Fenster"
            .name = "Kalender"
            .ImageKey = "bmpCALENDAR"
            .Shortcut = ssCtrlK
            .DescriptionText = "Der Kalender wird geöffnet."
        End With

        With .Add("GANTT")
            .category = "Fenster"
            .name = "Gantt"
            .ImageKey = "bmpGANTT"
            .DescriptionText = "Der Gantt wird geöffnet. Das Gantt-Diagramm kann Teilnehmer (z.B. Merkmale von Benutzern) untereinander in Form einer Liste anzeigen. Dadurch sind Termine mehrerer Teilnehmer gleichzeitig selbst über größere Zeitraume leicht zu überblicken. Die Gantt-Ansicht ist also besonders hilfreich bei der Überwachung von Terminüberschneidungen, bei der Suche nach freien Terminen und bei der Urlaubsplanung."
        End With

        With .Add("fcmdEdit")
            .category = "Menüs"
            .name = "Bearbeiten"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("NEU")
            .category = "Bearbeiten"
            .name = "Neu"
            .ImageKey = "bmpNEU"
            .DescriptionText = "Legt je nach geöffnetem FLOWFACT-Fenster einen neuen Datensatz an."
        End With

        With .Add("NEUEVORGANGSAKT")
            .category = "Bearbeiten"
            .name = "Neue Vorgangsaktivität"
            .ImageKey = "bmpVORGANG"
            .DescriptionText = "Eine neue Aktivität wird als Vorgangsaktivität erstellt und mit der aktuellen Aktivität verknüpft."
        End With

        With .Add("VORGANGSAKTMERKEN")
            .category = "Bearbeiten"
            .name = "Als übergeordnete Aktivität merken"
            .ImageKey = "bmpVORGANGPARENT"
            .DescriptionText = "Führen Sie diese Funktion aus, wenn die ausgewählte Aktivität mit einer Vorgangsaktivität verknüpft werden soll."
        End With
        
        With .Add("VORGANGSAKTVERKNÜPFEN")
            .category = "Bearbeiten"
            .name = "Mit gemerkter Aktivität verknüpfen"
            .ImageKey = "bmpVORGANGCHILD"
            .DescriptionText = "Führen Sie diese Funktion aus, wenn die ausgewählte Aktivität als untergeordnete Vorgangsaktivität definiert und mit der zuvor über die Funktion 'Als Vorgangsaktivität merken' markierten Aktivität verknüpft werden soll."
        End With
        
        With .Add("OK")
            .category = "Bearbeiten"
            .name = "OK"
            .Shortcut = ssF11
            .ImageKey = "bmpOK"
            .DescriptionText = "Änderungen speichern."
        End With

        With .Add("DUPLICATE")
            .category = "Bearbeiten"
            .name = "Duplizieren"
            .ImageKey = "bmpKOPIE"
            .DescriptionText = "Die angezeigte Adresse, Aktivität, Objekt usw. wird dupliziert und die Dublette zum Bearbeiten geöffnet."
        End With

        With .Add("ESC")
            .category = "Bearbeiten"
            .name = "Abbrechen"
            .ImageKey = "bmpESC"
            .DescriptionText = "Die Änderung der angezeigten Adresse, Aktivität, Objekt usw. wird abgebrochen."
        End With

        With .Add("LOESCHEN")
            .category = "Bearbeiten"
            .name = "Löschen"
            .ImageKey = "bmpLOESCHEN"
            .DescriptionText = "Die in der Liste markierten Adressen, Aktivitäten, Objekte usw. werden gelöscht."
        End With


        If gBenutzer.GetIniValue("MAIN", "UBERGREIFENDSUCHEN", "0") = "1" Then
            With .Add("UBERGREIFENDSUCHEN")
                .category = "Bearbeiten"
                .name = "Fensterübergreifende Suche"
                .ImageKey = "bmpUBERGREIFENDSUCHEN"
            End With
        End If

        With .Add("SPEZIALSUCHEN")
            .category = "Bearbeiten"
            .name = "Spezialsuche"
            .ImageKey = "bmpSPEZIALSUCHEN"
            .DescriptionText = "Diese Suche stellt Ihnen praktisch jedes Feld des jeweils aktiven Fensters für die Definition der Suche zur Verfügung (auch in Kombination). Sobald Sie diese Suche starten, leert FLOWFACT den Fensterinhalt und wartet anschließend auf die Eingabe Ihres Suchbegriffs. Geben Sie den gesuchten Begriff ein bzw. klicken Sie die jeweiligen Felder an. Ausgewählte Funktionen, Optionen und einzeilige Listenfelder erscheinen der Übersicht halber in roter Farbe. Erneutes Anklicken macht die Auswahl rückgängig (nicht bei einzeiligen Listenfeldern).%nl%%nl%Bestätigen Sie die Sucheingaben durch die Funktion Suche ausführen."
        End With

        With .Add("ANTWORTEN")
            .category = "Bearbeiten"
            .name = "Intern antworten"
            .ImageKey = "bmpANTWORTEN"
            .DescriptionText = "Einem FLOWFACT-Benutzer wird auf eine Aktivität intern geantwortet."
        End With

        With .Add("WINWORD")
            .category = "Bearbeiten"
            .name = "Word"
            .ImageKey = "bmpWINWORD"
            .DescriptionText = "Eine ausgewählte Word-Vorlage wird mit den aktuellen Daten befüllt und ausgegeben."
        End With

        With .Add("EXCEL")
            .category = "Bearbeiten"
            .name = "Excel"
            .ImageKey = "bmpEXCEL"
            .DescriptionText = "Eine ausgewählte Excel-Vorlage wird mit den aktuellen Daten befüllt und ausgegeben."
        End With

        With .Add("ZWISCHENABLAGE")
            .category = "Bearbeiten"
            .name = "Kontakt kopieren"
            .DescriptionText = "Kontakt in Zwischenablage kopieren"
            .ImageKey = "bmpCOPYTOCLIPBOARD"
            .Selectable = False
            .DescriptionText = "Die Adressdaten der angezeigten Adresse werden in die Zwischenablage zur Weiternutzung in anderen Programmen kopiert."
        End With

        With .Add("QUICKMAIL")
            .category = "Fenster"
            .name = "Neue Aktivität"  
            .ImageKey = "bmpQUICKMAIL"
            .DescriptionText = "Eine Aktivität wird auf einfache und schnelle Weise von jeder Programmstelle aus erzeugt. Nach Anklicken dieser Funktion öffnet sich ein Kontext-Menü, welches die für QuickAktivitäten ausgewählten Aktivitätenarten enthält. Welche Aktivitätenart im Popupmenü erscheinen soll, legen Sie im Fenster Aktivitätenarten (Funktion QuickAktivität) fest."
        End With

        With .Add("CLOSE")
            .category = "Bearbeiten"
            .name = "Schließen"
            .ImageKey = "bmpCLOSE"
            .DescriptionText = "Das aktuelle Fenster wird geschlossen."
        End With

        With .Add("CLOSEALL")
            .category = "Bearbeiten"
            .name = "Alle Fenster schließen"
            .ImageKey = "bmpCLOSEALL"
            .DescriptionText = "Alle Fenster innerhalb von FLOWFACT werden geschlossen."
        End With

        With .Add("TELEFON")
            .category = "Bearbeiten"
            .name = "Telefonieren"
            .ImageKey = "bmpTELEFON"
            .DescriptionText = "Stellt eine Telefonverbindung zur ausgewählten Telefonnummer her. Hierzu muss der FLOWFACT Alarm aktiv sein."
        End With

        With .Add("LOESCHMARK")
            .category = "Bearbeiten"
            .name = "Zum Löschen markieren"
            .ImageKey = "bmpKILLMARK"
            .DescriptionText = "Die angezeigte Aktivität wird zum späteren Löschen vorgemerkt. Über die Suchfunktion (Suchen-Dialog) 'Löschdatum älter als ... Tage' finden Sie alle Aktivitäten mit Löschvermerk, sofern das Datum in diesem Feld in den gesuchten Zeitraum fällt. Anschließend können Sie diese Aktivitäten über 'Globales Ändern...' endgültig löschen."
        End With

        With .Add("SPAMMARK")
            .category = "Mail"
            .name = "Als Spam markieren"
            .ImageKey = "bmpSPAMMARK"
            .DescriptionText = "Die angezeigte E-Mail wird innerhalb von FLOWFACT als Spam markiert. Zusätzlich wird die E-Mail aus dem Posteingang in den eingestellten IMAP-Spam-Ordner verschoben."
        End With

        With .Add("FIRST")
            .category = "Bearbeiten"
            .name = "Anfang"
            .ImageKey = "bmpFIRST"
            .DescriptionText = "Ruft die erste Seite des Archivs auf."
        End With

        With .Add("LEFT")
            .category = "Bearbeiten"
            .name = "Zurück"
            .ImageKey = "bmpLEFT"
            .DescriptionText = "Ruft den vorherigen Datensatz in der Liste auf."
        End With

        With .Add("RIGHT")
            .category = "Bearbeiten"
            .name = "Vor"
            .ImageKey = "bmpRIGHT"
            .DescriptionText = "Ruft den nächsten Datensatz in der Liste auf."
        End With

        With .Add("LAST")
            .category = "Bearbeiten"
            .name = "Ende"
            .ImageKey = "bmpLAST"
            .DescriptionText = "Ruft die letzte Seite des Archivs auf."
        End With

        With .Add("B180")
            .category = "Archiv"
            .name = "180 Grad drehen"
            .ImageKey = "bmpB180"
            .DescriptionText = "Dreht das eingescannte Dokument um 180 Grad."
        End With

        With .Add("B90")
            .category = "Archiv"
            .name = "90 Grad drehen"
            .ImageKey = "bmpB90"
            .DescriptionText = "Dreht das eingescannte Dokument um 90 Grad."
        End With

        With .Add("ARCHIVMIRROR")
            .category = "Archiv"
            .name = "Spiegeln"
            .ImageKey = "bmpARCHIVMIRROR"
            .DescriptionText = "Spiegelt das eingescannte Dokument."
        End With

        With .Add("BREITE")
            .category = "Archiv"
            .name = "Breitenoptimiert"
            .ImageKey = "bmpBREITE"
            .DescriptionText = "Passt das angezeigte Dokument der maximal zur Verfügung stehenden Seitenbreite an."
        End With

        With .Add("NURQUICKSCAN")
            .category = "Archiv"
            .name = "QuickScan"
            .ImageKey = "bmpQUICKSCANN"
            .DescriptionText = "Startet den Scanvorgang."
        End With

        With .Add("ARCHIVGRAY")
            .category = "Archiv"
            .name = "Grauton"
            .Selectable = False
            .DescriptionText = "Stellt eine Bilddatei in Graustufen dar (z.B. Farbbild in SW-Darstellung umwandeln)."
        End With

        With .Add("ARCHIVINVERT")
            .category = "Archiv"
            .name = "Invertieren"
            .Selectable = False
            .DescriptionText = "Stellt eine Bilddatei invers dar (sog. Negativ-Ansicht)."
        End With

        With .Add("ARCHIVCOLORRES")
            .category = "Archiv"
            .name = "Auflösung"
            .Selectable = False
            .DescriptionText = "Öffnet den Dialog Farbauflösung ändern. Dort stehen Ihnen mehrere Einstellungsmöglichkeiten zur Verfügung."
        End With

        With .Add("ARCHIVINFO")
            .category = "Archiv"
            .name = "Bildinfo"
            .ImageKey = "bmpARCHIVINFO"
            .DescriptionText = "Zeigt alle relevanten Information der aktuellen Bilddatei, sofern diese bereits gespeichert wurde."
        End With

        With .Add("HOEHE")
            .category = "Archiv"
            .name = "Höhenoptimiert"
            .ImageKey = "bmpHOEHE"
            .DescriptionText = "Passt das angezeigte Dokument der maximal zur Verfügung stehenden Seitenhöhe an."
        End With

        With .Add("ARCHIVZOOM")
            .category = "Archiv"
            .name = "Zoom"
            .ComboBoxList = "ganze Seite|Seitenbreite|12%|25%|35%|50%|75%|100%|200%|400%|800%"
            .typ = ssTypeComboBox
            .Selectable = False
            .DescriptionText = "Zoomt das Fenster in der angegebenen Größe. Diese Funktion ist nur bei aktivem Fenster verfügbar."
        End With

        With .Add("ANSICHTAKTVIEW")
            .category = "Ansicht"
            .name = "Aktivitätenansicht"
            .ComboBoxList = "Alle|Classic,Sonstiges|Anhaenge|Mail|Termin|Nachweis|Dokument|Nachricht|Notiz"
            .ComboBoxStyle = ssComboDropDownList
            .typ = ssTypeComboBox
            .Selectable = False
            .DescriptionText = "Für die angezeigte Aktivität werden alle Ansichten dargestellt."
        End With

        With .Add("LISTDEFINITION")
            .category = "Ansicht"
            .name = "Listendefinitionen"
            
            .ComboBoxList = ListDefinitionGetList(gBenutzer.GetProfileFolder & "\GUI.INI|" & pfad("flowfact.ini"), "F_OBJ")
            
            .ComboBoxStyle = ssComboDropDownList
            .typ = ssTypeComboBox
            .Enabled = False
            .Selectable = False
            .DescriptionText = "Über spezielle Einträge in der Datei GUI.INI bzw. flowfact.ini können Sie in Ihre Listen (in den Fenstern Objekte und Selektion) zusätzliche Spalten einfügen.%nl%Die definierten Listen können Sie an dieser Stelle über Ihren definierten Namen auswählen."
        End With

        With .Add("CONTENTLANGUAGE")
            .category = "Ansicht"
            .name = "Content language"
            .Selectable = False
            .DescriptionText = "Im Zuge der Mehrsprachen-Einrichtung werden die Bezeichnungen der Standard-Feldarten automatisch übersetzt. Durch das Auswählen einer anderen Sprache werden die Inhalte der ausgewählten Sprache angezeigt. Eine direkte Anzeige und Eingabe der Übersetzungen ist so einfach möglich."

            
        End With
        
        With .Add("ANSICHTAKTVIEWALLE")
            .category = "Ansicht"                          '#i18n|637|5
            .name = "Alle Views anzeigen"                  '#i18n|638|5
            .ImageKey = "bmpAUGE"                          '#i18n|639|5
            .DescriptionText = "Für die Aktivität werden alle Ansichten angezeigt."
        End With

        With .Add("INTERNETADDRESS")                       '#i18n|642|5
            .category = "Ansicht"                          '#i18n|643|5
            .name = "Adresse"                              '#i18n|644|5
            .typ = ssTypeEdit
            .Selectable = False
            .DescriptionText = "Über diese Eingabe können Sie FlowFAct als Internetbrowser benutzen. Es gelten die Sicherheitseinstellungen des Internet-Explorers."
        End With


        If Application.isVersion(2012) = True Then
            With .Add("XSEARCH")                       '#i18n|642|5
                .category = "Ansicht"                          '#i18n|643|5
                .name = "Suche"                              '#i18n|644|5
                .typ = ssTypeEdit
                .Selectable = False
            End With
        End If
        
        With .Add("HISTORIEBACK")                          '#i18n|648|5
            .category = "Historie"                         '#i18n|649|5
            .name = "Zurück"                               '#i18n|650|5
            .typ = ssTypeDropDown
            .ImageKey = "bmpHISTORIEZURUECK"               '#i18n|652|5
            .DescriptionText = "Öffnet die jeweils vorherige(s) Aktivität/Objekt/Projekt aus dem Verlauf."
        End With
        
        With .Add("HISTORYWINDOW")                          '#i18n|648|5
            .category = "Historie"                         '#i18n|649|5
            .name = "Verlauf"                               '#i18n|650|5
            .typ = ssTypeDropDown
            .ImageKey = "bmpHISTORIEZURUECK"
            .DescriptionText = "Öffnet das Fenster Historie mit einer Liste Ihrer letzten 200 Aktionen (fensterübergreifend). Wählen Sie dort die gewünschte Aktion durch Klick auf den entsprechenden Listeneintrag aus, so wird sofort der jeweilige Datensatz im entsprechenden Fenster angezeigt."                           '#i18n|652|5
        End With


        With .Add("HISTORIEVOR")                           '#i18n|655|5
            .category = "Historie"                         '#i18n|656|5
            .name = "Vor"                                  '#i18n|657|5
            .ImageKey = "bmpHISTORIEVOR"                   '#i18n|658|5
            .DescriptionText = "Öffnet die jeweils nächste(s) Aktivität/Objekt/Projekt aus dem Verlauf."
        End With

        With .Add("ADHISTORYAKT")
            .category = "Sonstiges"
            .name = "Aktivitätenhistorie"
            .ImageKey = "bmpADHISTORYAKT"
            .DescriptionText = "Sucht alle Aktivitäten im Adressbaum."
            .Selectable = False
        End With

        With .Add("ALARMSTARTEN")                          '#i18n|661|5
            .category = "Sonstiges"                        '#i18n|662|5
            .name = "Alarm starten"                        '#i18n|663|5
            .ImageKey = "bmpALARM"                         '#i18n|664|5
            .DescriptionText = "Hiermit können Sie den FLOWFACT Alarm starten. Der FLOWFACT-Alarm informiert Sie vollautomatisch über alle unerledigten Aktivitäten, die über eine Uhrzeit verfügen."
        End With

        With .Add("STD")
            .category = "Administration"                   '#i18n|668|5
            .name = "Grundeinstellungen"                   '#i18n|669|5
            .ImageKey = "bmpSTD"                           '#i18n|670|5
            .DescriptionText = "Das Fenster für die Grundeinstellungen wird geöffnet. Dieses Fenster steht nur FLOWFACT Administratoren zur Verfügung."
        End With

        With .Add("RESETSCRIPTINGENGINE")                  '#i18n|673|5
            .category = "Entwicklungstools"                '#i18n|674|5
            .name = "Scriptingumgebung zurücksetzen."      '#i18n|675|5
            .ImageKey = "bmpRESETSCRIPTING"                '#i18n|676|5
            .DescriptionText = "Setzt die Scriptingumgebung zurück."
        End With

        With .Add("MKM")
            .category = "Administration"                   '#i18n|680|5
            .name = "Merkmale"                             '#i18n|681|5
            .ImageKey = "bmpMERKMALE"                      '#i18n|682|5
            .DescriptionText = "Das Fenster für die Administration der Merkmale wird geöffnet. Dieses Fenster steht nur FLOWFACT Administratoren zur Verfügung."
        End With

        With .Add("BEN")
            .category = "Administration"                   '#i18n|686|5
            .name = "Benutzer"                             '#i18n|687|5
            .ImageKey = "bmpUSER"                          '#i18n|688|5
            .DescriptionText = "Das Fenster für die Administration der Benutzer wird geöffnet."
        End With

        With .Add("ZUG")                                   '#i18n|691|5
            .category = "Administration"                   '#i18n|692|5
            .name = "Benutzergruppen"                      '#i18n|693|5
            .ImageKey = "bmpGROUP"                         '#i18n|694|5
            .DescriptionText = "Das Fenster für die Administration der Benutzergruppen wird geöffnet. Dieses Fenster steht nur FLOWFACT Administratoren zur Verfügung."
        End With

        With .Add("ACCOUNTS")                              '#i18n|697|5
            .category = "Administration"                   '#i18n|698|5
            .name = "Konten"                               '#i18n|699|5
            .ImageKey = "bmpKONTEN"                        '#i18n|700|5
            .DescriptionText = "Das Fenster für die Administration der Konten wird geöffnet. Dieses Fenster steht nur FLOWFACT Administratoren zur Verfügung."
        End With

        With .Add("FLDART")                                '#i18n|703|5
            .category = "Administration"                   '#i18n|704|5
            .name = "Feldarten"                            '#i18n|705|5
            .ImageKey = "bmpFELDARTEN"                     '#i18n|706|5
            .DescriptionText = "Das Fenster für die Administration der Feldarten wird geöffnet. Dieses Fenster steht nur FLOWFACT Administratoren zur Verfügung."
        End With

        With .Add("AKTARTEN")                              '#i18n|709|5
            .category = "Administration"                   '#i18n|710|5
            .name = "Aktivitätenarten"                     '#i18n|711|5
            .ImageKey = "bmpAKTARTEN"                      '#i18n|712|5
            .DescriptionText = "Das Fenster für die Administration der Aktivitätenarten wird geöffnet. Dieses Fenster steht nur FLOWFACT Administratoren zur Verfügung."
        End With
        
        With .Add("APPSTORE")                              ' ### FF-6939 DKU20130330
            .category = "Administration"                   '#i18n|710|5
            .name = "FLOWFACT-Store"                            '#i18n|711|5
            .ImageKey = "bmpINTERNET"                      '#i18n|712|5
            .DescriptionText = "Das Fenster des FLOWFACT-Stores wird geöffnet."
        End With

        With .Add("EMSK")
            .category = "Administration"                   '#i18n|716|5
            .name = "Eingabehilfen"                        '#i18n|717|5
            .ImageKey = "bmpEMSK"                          '#i18n|718|5
            .DescriptionText = "Das Fenster für die Administration der Eingabehilfen wird geöffnet. Dieses Fenster steht nur FLOWFACT Administratoren zur Verfügung."
        End With

        With .Add("REGIS")                                 '#i18n|732|5
            .category = "Administration"                   '#i18n|733|5
            .name = "Registrierung"                        '#i18n|734|5
            .ImageKey = "bmpREGISTRIERUNG"                 '#i18n|735|5
            .DescriptionText = "Das Fenster für die FLOWFACT Registrierung wird geöffnet. Dieses Fenster steht nur FLOWFACT Administratoren zur Verfügung."
        End With

        With .Add("PPVORWAHL")                             '#i18n|738|5
            .category = "PostPerfect"                      '#i18n|739|5
            .name = "Vorwahl lernen"                       '#i18n|740|5
            .ImageKey = "bmpLEARNPREFIX"                   '#i18n|741|5
            .Selectable = False
            .DescriptionText = "Merkt sich eine Vorwahl zur PLZ in der Datenbank."
        End With

        With .Add("ABOUT")                                 '#i18n|744|5
            .category = "Hilfe"                            '#i18n|745|5
            .name = "Info"                                 '#i18n|746|5
            .ImageKey = "flowfact"
            .DescriptionText = "Zeigt Systeminformationen über FLOWFACT an und gibt direkten Zugriff auf das FLOWFACT-Verzeichnis."
        End With

        With .Add("WWWFLOWFACT")                           '#i18n|749|5
            .category = "Hilfe"                            '#i18n|750|5
            .name = "www.flowfact.de"                      '#i18n|751|5
            .ImageKey = "bmpFFONLINE"                      '#i18n|752|5
            .DescriptionText = "Link zur FLOWFACT-Homepage."
        End With

        With .Add("HELPINDEX")
            .category = "Hilfe"                            '#i18n|756|5
            .name = "FLOWFACT Online-Hilfe"                '#i18n|757|5
            .ImageKey = "bmpHILFE"                         '#i18n|758|5
            .DescriptionText = "Öffnet die Online-Hilfe von FLOWFACT."
        End With

        With .Add("VIDEOKURSE")
            .category = "Hilfe"                            '#i18n|756|5
            .name = "FLOWFACT Videokurse"                '#i18n|757|5
            .ImageKey = "bmpHILFE"                         '#i18n|758|5
            .DescriptionText = "Öffnet die Video-Kurse von FLOWFACT."
        End With

        With .Add("HELPINFO")                              ' "Fensterhilfe (F1)" früher fenster und symbole '#i18n|761|5
            .category = "Hilfe"                            '#i18n|762|5
            .name = "Fensterhilfe (F1)"                    '#i18n|763|5
            .ImageKey = "bmpHILFE"                         '#i18n|764|5
            .DescriptionText = "Öffnet die F1-Fensterhilfe."
        End With

        With .Add("FCMDUSEARCHIV")                         '#i18n|767|5
            .category = "Ansicht"                          '#i18n|768|5
            .typ = ssTypeStateButton
            .name = "Archiv einbeziehen"                   '#i18n|770|5
            .Selectable = False
            .DescriptionText = "Bei aktiver Einstellung werden auch archivierte Datensätze bei Suchfunktionen mit einbezogen, sodass diese bei Übereinstimmung mit Ihren Suchkriterien in Suchergebnislisten erscheinen. "
        End With

        With .Add("FCMDUSEDETAILS")                         '#i18n|767|5
            .category = "Ansicht"                          '#i18n|768|5
            .typ = ssTypeStateButton
            .name = "Detailfelder einbeziehen"                   '#i18n|770|5
            .Selectable = False
            .DescriptionText = "Bei aktiver Einstellung werden auch Ergebnisse angezeigt, bei denen sich die Adress- oder Projektverknüpfungen in Detailfeldern befinden."
        End With

        With .Add("SHOWNAVIGATOR")                         '#i18n|773|5
            .category = "Ansicht"                          '#i18n|774|5
            .typ = ssTypeStateButton
            .name = "Navigation ein/ausblenden"                            '#i18n|776|5
            .ImageKey = "bmpNAVIGATOR"                     '#i18n|777|5
            .DescriptionText = "Mit dieser Funktion wird die linke Hauptnavigation ein- bzw. ausgeblendet."
            .Selectable = False
        End With

        With .Add("SHOWHEADER")                            '#i18n|780|5
            .category = "Ansicht"                          '#i18n|781|5
            .typ = ssTypeStateButton
            .name = "Kopfzeile"                            '#i18n|783|5
            .Selectable = False
            .DescriptionText = "Blendet die Fensterüberschrift ein bzw. aus."
        End With

        With .Add("SHOWSTATUSBAR")                         '#i18n|786|5
            .category = "Ansicht"                          '#i18n|787|5
            .typ = ssTypeStateButton
            .name = "Statusleiste"                         '#i18n|789|5
            .Selectable = False
            .DescriptionText = "Blendet die Statusleiste ein bzw. aus."
        End With

        With .Add("AKTUNERLEDIGT")                         '#i18n|794|5
            .category = "Ansicht"                          '#i18n|795|5
            .typ = ssTypeStateButton
            .name = "Nur unerledigte Aktivitäten"          '#i18n|797|5
            .DescriptionText = "Bei aktiver Einstellung werden in der Aktivitäten-Suchergebnisliste nur Aktivitäten angezeigt, die noch nicht als erledigt markiert worden sind."
            .Selectable = False
        End With

        With .Add("TOP100")                                '#i18n|800|5
            .category = "Ansicht"                          '#i18n|801|5
            .typ = ssTypeStateButton
            .name = "Ersten 100 Aktivitäten anzeigen"      '#i18n|803|5
            .DescriptionText = "Bei aktiver Einstellung werden in der Aktivitäten-Suchergebnisliste nur die ersten 100 Aktivitäten angezeigt."
            .Selectable = False
        End With


        With .Add("REFRESHVORLAGE")
            .category = "Ansicht"
            .typ = ssTypeStateButton
            .name = "Wiedervorlage aktualisieren"
            .ImageKey = "bmpREFRESH"
            .DescriptionText = "Die Ansicht der Wiedervorlage wird aktualisiert."
        End With


        With .Add("ALLUSER")
            .category = "Ansicht"
            .typ = ssTypeStateButton
            .name = "Alle Benutzer"
            .Selectable = False
            .DescriptionText = "Bei aktiver Einstellung werden im Posteingang, Postausgang und im Gesendet-Ordner die E-Mails aller Benutzer angezeigt."
        End With
        
        With .Add("SEARCHINLIST")
            .category = "Ansicht"
            .typ = ssTypeStateButton
            .name = "In Liste suchen"
            .Selectable = False
            .DescriptionText = "Bei aktiver Einstellung kann die im jeweiligen Fenster angezeigte Liste nach bestimmten Feldinhalten mit Hilfe der Suchfunktion durchsucht werden."
        End With

        With .Add("POSITIONLOCKED")
            .category = "Ansicht"
            .typ = ssTypeStateButton
            .name = "Symbolleisten verriegeln"
            .Selectable = False
            .DescriptionText = "Bei aktiver Einstellung wird sichergestellt, dass sich die Fensterposition sowohl der Menüleiste, als auch der Symbolleisten nicht mehr ungewollt verändern lässt."
        End With

        With .Add("AKTVERKNUEPFT")
            .category = "Ansicht"
            .typ = ssTypeStateButton
            .name = "Anhänge anzeigen"
            .Selectable = False
            .DescriptionText = "Die Listenspalte Anhänge in der Aktivitäten-Suchergebnisliste (Fenster Aktivitäten und Vorlage) wird ein- bzw. ausgeblendet. Bei ausgeblendeter Spalte wird die Verknüpfungsfunktion (die nach jedem Suchvorgang gestartet wird) deaktiviert. Der Listenaufbau wird dadurch beschleunigt. Allerdings können Sie anhand der Liste dann nicht mehr erkennen, ob bzw. welche Aktivitäten über Anhänge (z.B. Word-, Excel- oder Archiv-Dokument etc.) verfügen."
        End With

        With .Add("HIRARCHIE")
            .category = "Ansicht"
            .typ = ssTypeStateButton
            .name = "Hierarchieliste aktualisieren"
            .DescriptionText = "Bei manchen FLOWFACT-Listen ist die automatische Aktualisierung nicht immer erwünscht oder sinnvoll (z.B. unnötige Wartezeiten durch zu häufiges Aktualisieren). Hiermit schalten Sie die automatische Aktualisierung ein bzw. aus."
            .Selectable = False
        End With
        
        With .Add("KEEPHIERARCHIE")
            .category = "Ansicht"
            .typ = ssTypeStateButton
            .name = "Objekthierarchie beibehalten"
            .Selectable = False
            .DescriptionText = "Bei aktiver Einstellung wird in der Objekthierarchie neben der Gruppierung nach einem bestimmten Kriterium (z.B. Etage) zusätzlich nach Unterobjekten gruppiert. Sinnvoll ist die Beibehaltung der Obejkthierarchie, wenn mehr als zwei Hierarchieebenen vorhanden sind."
        End With

        With .Add("LINENUMBERS")
            .category = "Ansicht"
            .typ = ssTypeStateButton
            .name = "Zeilennummerierung"
            .DescriptionText = "Die Zeilennummerierung in den Listen wird ein- bzw. ausgeschaltet."
            .Selectable = False
        End With

        With .Add("GEWICHTUNGENOBJ")
            .category = "Ansicht"
            .typ = ssTypeStateButton
            .name = "Objektgewichtungen"
            .Selectable = False
            .DescriptionText = "Bei aktiver Einstellung (bezieht sich nur auf das Fenster Objekte) wird in den Feldarten-Listen (Felder zur Eingabe von Objekt- bzw. Interessenten-Daten) die Spalte Gewichtung eingeblendet."
        End With

        With .Add("PPADD")
            .category = "PostPerfect"
            .typ = ssTypeStateButton
            .name = "Ergänzen"
            .Selectable = False
            .DescriptionText = "Ergänzung von Adressen mittels PostPerfect ein- bzw. ausschalten."
        End With

        With .Add("ARCHIVFILEOPEN")
            .category = "Archiv"
            .name = "Öffnen"
            .ImageKey = "bmpARCHIVFILEOPEN"
            .DescriptionText = "Öffnet eine externe Bilddatei."
        End With

        With .Add("ARCHIVSAVEAS")
            .category = "Archiv"
            .name = "Speichern unter"
            .ImageKey = "bmpARCHIVSAVEAS"
            .DescriptionText = "Möglichkeit die aktuelle Bilddatei auf einem beliebigen Datenträger zu speichern."
        End With

        With .Add("ARCHIVSELECTSOURCE")
            .category = "Archiv"
            .name = "Quelle auswählen"
            .ImageKey = "bmpARCHIVSELECTSOURCE"
            .DescriptionText = "Es öffnet sich der Default-Dialog zur Auswahl des Scanners."
        End With

        With .Add("ARCHIVGETPICTURE")
            .category = "Archiv"
            .name = "Bild holen"
            .ImageKey = "bmpARCHIVGETPICTURE"
            .DescriptionText = "Es öffnet sich der Standard-Twain-Dialog."
        End With

        With .Add("ARCHIVPRINT")
            .category = "Archiv"
            .name = "Drucken"
            .DescriptionText = "Drucken im Archiv"
            .ImageKey = "bmpPRINT"
            .DescriptionText = "Öffnet den Druckdialog im Archiv-Fenster."
        End With

        With .Add("ARCHIVSCANOPTIONS")
            .category = "Archiv"
            .name = "Voreinstellungen"
            .DescriptionText = "Öffnet die Voreinstellungen für den Scanner im Archiv-Fenster."
        End With

        With .Add("ARCHIVPASTE")
            .category = "Archiv"
            .name = "Einfügen"
            .Selectable = False
            .DescriptionText = "Fügt eine Bilddatei in das Fenster Archiv ein (nur möglich, wenn sich eine Bilddatei bereits im Zwischenspeicher befindet)."
        End With

        With .Add("ARCHIVNEWPASTE")
            .category = "Archiv"
            .name = "Neu und einfügen"
            .Selectable = False
            .DescriptionText = "Fügt eine Bilddatei in das Fenster Archiv ein (siehe Funktion Einfügen) und legt zuvor einen neuen Archiv-Datensatz an."
        End With
        
        With .Add("ARCHIVSCAN")
            .category = "Archiv"
            .name = "Scannen"
            .ImageKey = "bmpSCANNEN"
            .DescriptionText = "Öffnet den Scan-Dialog zum Einscannen von Dokumenten."
        End With
        
        If b(g_Util.IniGet("OPTIONS", "FriendListing", "0", pfad("flowfact.ini"))) = True Then

            With .Add("MNUCOOP")
                .category = "Menüs"
                .name = "FriendListing"
                .typ = ssTypeMenu
                .Selectable = False
            End With
    
            With .Add("COOPERATION_PARTNER")
                .category = "FriendListing"
                .name = "Partner"
                .ImageKey = "bmpAD"
                .DescriptionText = "Es wird das Fenster Friendlisting - Partner geöffnet. Dieses Fenster besteht aus zwei Registerkarten. Im ersten Register (Partner) sind alle Maklerkollegen aufgelistet, die mit Ihnen bzw. mit denen Sie kooperativ zusammenarbeiten bzw. Objektdaten austauschen. Die zweite Registerkarte (Objektfreigaben) informiert über die Objektfreigaben, die sich auf den jeweils im ersten Register ausgewählten Partner beziehen."
            End With
    
            With .Add("COOPERATION_OBJ")
                .category = "FriendListing"
                .name = "Objekte"
                .ImageKey = "bmpOBJEKTEONLINE"
                .DescriptionText = "Es wird das Fenster Friendlisting-Objekte geöffnet. Dieses Fenster verfügt über mehrere Registerkarten. Im ersten Register (Objekte) werden wahlweise die eigenen oder Partner-Objekte dargestellt. Die zweite Registerkarte (Partnerfreigabe) informiert über die Partnerfreigaben, die sich auf das jeweils im ersten Register ausgewählte Objekt beziehen."
            End With
        End If
        
        
        With .Add("SETUPKEYBOARDKEYS")
            .category = "Sonstiges"
            .name = "Tastaturbelegung"
            .ImageKey = "bmpSETUPKEYS"
            #If G_MAINAPPLICATION = 1 Then
                .Enabled = g_ShortCuts.Enabled
            #End If
            .DescriptionText = "Das Fenster für die Administration der Tastaturbelegungen wird geöffnet."
        End With

        With .Add("MNUADDIN")
            .category = "Menüs"
            .name = "AddIn"
            .typ = ssTypeMenu
            .Selectable = False
        End With

        With .Add("ADDIN_CONFIG")
            .category = "AddIn"
            .name = "AddIn Konfigurator"
            .ImageKey = "bmpADDINCONFIG"
            .DescriptionText = "Der AddIn Konfigurator wird gestartet. In FLOWFACT sind eine Reihe sog. AddIns enthalten. Dies sind Zusatzmodule, die Ihre tägliche Arbeit mit FLOWFACT informativer, komfortabler und effizienter machen. FLOWFACT AddIns werden permanent weiterentwickelt, wobei selbstverständlich auch neue Funktionen hinzukommen. Um zu prüfen, ob Updates oder neue AddIns zur Verfügung stehen, genügt ein Mausklick auf den Knopf LiveUpdate im AddIn Konfigurator."
        End With

        'ASO FF-9656, Kunde wünscht das Live-Update direkt aus der Ribbon Bar zu starten
        If (gBenutzer.is_Administrator()) Then
            With .Add("ADDIN_CONFIG_LIVEUPDATE")
                .category = "AddIn"
                .name = "AddIn LiveUpdate"
                .ImageKey = "bmpADDINCONFIG"
                .DescriptionText = "Der AddIn Konfigurator wird gestartet und prüft direkt ob neue Versionen der AddIns zur Verfügung stehen."
            End With
        End If
        
        With .Add("PORTAL_CONFIG")
            .category = "AddIn"
            .name = "Portalseiten Konfigurator"
            .ImageKey = "bmpPORTALCONFIG"
            .DescriptionText = "Mit Hilfe des Portalseiten Konfigurators können Sie Ihre Portalseite (Startseite) im Rahmen der verfügbaren Portalseiten-AddIns individuell Ihren Wünschen entsprechend anpassen."
        End With

        '** z.B. Nicht in der Schweiz
        If b(g_Util.IniGet("OPTIONS", "IMV", IIf(IsSchweiz, "0", "1"), pfad("flowfact.ini"))) = True Then
            With .Add("MNUIMV")
                .category = "Menüs"
                .name = "IMV-Schnittstelle"
                .typ = ssTypeMenu
                .Selectable = False
            End With
    
            With .Add("IMVCHECK")
                .category = "IMV"
                .name = "IMV-Check"
                .ImageKey = "bmpSUCHEN"
                .DescriptionText = "Die manuelle Prüfung bei der Datenrecherche wird gestartet."
            End With
    
            With .Add("IMVLASTUPDATE")
                .category = "IMV"
                .name = "IMV-LastUpdate"
                .ImageKey = "bmpIMV"
                .DescriptionText = "Findet alle neuen Inserate (z.B. nur von Privat, von bestimmten Gewerbeanbietern, bestimmten Objektkategorien)."
            End With
                          
            With .Add("IMVMONITORING")
                .category = "IMV"
                .name = "IMV-Monitoring"
                .ImageKey = "bmpIMV"
                .DescriptionText = "Startet die voll automatische FLOWFACT IMV Datenrecherche für beliebig große Mengen von Objekt, Anfragen und Adressenbeständen mit automatischer Ergebnislieferung in die Wiedervorlage der zuständigen Mitarbeiter."
            End With
    
            With .Add("IMVCONFIG")
                .category = "IMV"
                .name = "IMV-Konfiguration"
                .ImageKey = "bmpIMV"
                .DescriptionText = "Bevor Sie in FLOWFACT eine der IMV-Funktionen aufrufen, sollten Sie zuerst einige wichtige Einstellungen im Konfigurations-Dialog vornehmen. Dort stehen Ihnen eine Reihe von Einstellungsmöglichkeiten zur Verfügung, die eine optimale Anpassung der IMV-Schnittstelle ermöglichen.%nl% %nl%HINWEIS! Die Konfiguration ist nur dann möglich, wenn Sie bereits IMV 2000 über den Hersteller IMV GmbH Reichertshausen b. München erworben haben."
            End With
        End If
        
        '** z.B. Nicht in der Schweiz
        If b(g_Util.IniGet("OPTIONS", "IS24IMPORTER", IIf(IsSchweiz, "0", "1"), pfad("flowfact.ini"))) = True Then
            With .Add("IS24IMPORTER")
                .category = "Sonstiges"
                .name = "IS24-Importer"
                .ImageKey = "bmpIS24IMPORTER"
                .DescriptionText = "Der IS24 Importer ist ein Zusatzmodul für FLOWFACT-Anwender, die Ihre Objektdaten aus ImmobilienScout24 heraus zu FLOWFACT übertragen wollen.%nl% %nl%Der Datenimport beschränkt sich nur auf Objektdaten, die noch nicht von FLOWFACT aus zu ImmobilienScout24 übertragen worden sind. Dieses Modul nimmt Ihnen die ganze Arbeit ab, die mit der Objekt-Eingabe, also dem Ausfüllen der einzelnen Felder verbunden ist."
            End With
        End If

        With .Add("MNUADIMPORT")
            .category = "Menüs"
            .name = "Kontakte importieren"
            .ImageKey = "bmpAIAPP"
            .typ = ssTypeMenu
            .Selectable = False
            .DescriptionText = "Der Adressimporter wird gestartet. Mit Hilfe des Adressimporters können Sie Adressen z.B. aus Anfrage-E-Mails importieren."
        End With

        With .Add("ADIMPORT_KLICKTEL")
            .category = "Sonstiges"
            .name = "KlickTel"
            .ImageKey = "bmpAIKLICKTEL"
            .DescriptionText = "Startet den Import von Adressen aus KlickTel mit Hilfe des FLOWFACT Adress Importers."
        End With

        With .Add("ADIMPORT_TWIXTEL")
            .category = "Sonstiges"
            .name = "TwixTel"
            .ImageKey = "bmpAITWIXTEL"
            .DescriptionText = "Startet den Import von Adressen aus TwixTel mit Hilfe des FLOWFACT Adress Importers."
        End With

        With .Add("ADIMPORT_KONTAKTE")
            .category = "Sonstiges"
            .name = "Kontakte/Anfragen automatisch anlegen"
            .ImageKey = "bmpAIKONTAKTE"
            .DescriptionText = "Der Adressimporter wird zur automatischen Anlage einer neuen Adresse/Anfrage aus der angezeigten Anfrage E-Mail gestartet."
        End With

        With .Add("ADIMPORT_CLIPBOARD")
            .category = "Sonstiges"
            .name = "Kontakt einfügen"
            .ToolTipText = "Kontakt aus der Zwischenablage einfügen"
            .ImageKey = "bmpAICLIPBOARD"
            .DescriptionText = "Der Adressimporter wird zur automatischen Anlage einer neuen Adresse aus der Zwischenablage gestartet."
       End With

        With .Add("BIREPORTS")
            .category = "Business Intelligence"
            .name = "Business-Reports"
            .ImageKey = "bmpBIREPORTS"
            .DescriptionText = "Der Auswahl- und Bedienungsdialog für die FLOWFACT Business-Reports wird gestartet.%nl% Business Intelligence Reporting geht über die Möglichkeiten des Management-Cockpits hinaus und ist Ihre Grundlage, um Erfolge und Verbesserungspotentiale zu identifizieren und Kosten langfristig zu reduzieren."
        End With

        With .Add("BIMANAGEMENTCOCKPIT")
            .category = "Business Intelligence"
            .name = "Management-Cockpit"
            .ImageKey = "bmpBIMANAGEMENTCOCKPIT"
            .DescriptionText = "Das Management-Cockpit wird gestartet. Das Management-Cockpit visualisiert die Leistungen auf Ebene des Unternehmens, des Teams und jeden einzelnen Mitarbeiters. Via Management-Cockpit werden die vorhandenen Daten so aufbereitet und dargestellt, dass Sie – sei es für die Unternehmensleitung selber, für Vertriebsmitarbeiter oder auch für das Service-Team – wichtige Kennzahlen tagesaktuell visualisieren. Das Management-Cockpit ist ein Informationszentrum zur Optimierung der Entscheidungsfindung im Team."
        End With
    
        With .Add("TRANSLATESTRING")
            .category = "Entwicklungstools"
            .name = "Translatestring Logging"
            .ImageKey = "bmpSPRACHE"
            .Selectable = False
        End With
    
        With .Add("REPLACEAKTPLACEHOLDER")
            .category = "Sonstiges"
            .name = "Platzhalter ersetzen"
            .ImageKey = "bmpXMLIMPORT"
            .DescriptionText = "Alle Platzhalter werden in der angezeigten Aktivität und den Worddateien im Anhang ersetzt."
        End With
    
        With .Add("PLACEHOLDER")
            .category = "Sonstiges"
            .name = "Platzhalter"
            .ImageKey = "bmpPLACEHOLDER"
            .DescriptionText = "Hiermit können Sie alle Platzhalter in der angezeigten Prozess-Aktivität sowie in den dieser Aktivität angefügten Worddateien ersetzen."
        End With
    
        With .Add("CALTODAY")
            .category = "Kalender"
            .name = "Heute"
            .DescriptionText = "Der Kalender wird auf heute umgeschaltet."
            .ImageKey = "bmpCALTODAY"
        End With
        
        With .Add("GANTTTODAY")
            .category = "Kalender"
            .name = "Heute"
            .DescriptionText = "Der Gantt wird auf heute umgeschaltet."
            .ImageKey = "bmpCALTODAY"
        End With

        With .Add("REFRESH")
            .category = "Kalender"
            .name = "Aktualisieren"
            .DescriptionText = "Die Ansicht des Kalenders wird aktualisiert."
            .ImageKey = "bmpREFRESH"
        End With
        
        With .Add("REFRESHVOR")
            .category = "Wiedervorlage"
            .name = "Wiedervorlage aktualisieren"
            .DescriptionText = "Die Wiedervorlage wird neu geladen und aktualisiert."
            .ImageKey = "bmpREFRESH"
        End With
        
        With .Add("CAL1DAY")
            .category = "Kalender"
            .name = "Tag"
            .DescriptionText = "Der Kalender wird auf Tagesansicht umgeschaltet."
            .ImageKey = "bmpCAL1DAY"
        End With
        
        With .Add("CAL5DAY")
            .category = "Kalender"
            .name = "Arbeitswoche"
            .DescriptionText = "Der Kalender wird auf die Arbeitswochenansicht umgeschaltet."
            .ImageKey = "bmpCAL5DAY"
        End With
        
        With .Add("CAL7DAY")
            .category = "Kalender"
            .name = "Woche"
            .DescriptionText = "Der Kalender wird auf die Wochenansicht umgeschaltet."
            .ImageKey = "bmpCAL7DAY"
        End With
        
        With .Add("CAL14DAY")
            .category = "Kalender"
            .name = "2 Wochen"
            .DescriptionText = "Der Kalender wird auf eine Ansicht mit 14 Tagen umgeschaltet."
            .ImageKey = "bmpCAL14DAY"
        End With
        
        With .Add("CAL30DAY")
            .category = "Kalender"
            .name = "Monat"
            .DescriptionText = "Der Kalender wird auf die Monatsansicht umgeschaltet."
            .ImageKey = "bmpCAL31DAY"
        End With
        
        With .Add("CALPRINT")
            .category = "Kalender"
            .name = "Drucken"
            .DescriptionText = "Der Kalender wird in der aktuellen Ansicht ausgedruckt."
            .ImageKey = "bmpPRINT"
        End With
        
        With .Add("CALOPTIONS")
            .category = "Kalender"
            .name = "Optionen"
            .DescriptionText = "Öffnet den Dialog zum Einstellen der Kalenderoptionen."
            .ImageKey = "bmpPREFERENCES"
        End With
        
        With .Add("CALPRINTPREVIEW")
            .category = "Kalender"
            .name = "Druckvorschau"
            .DescriptionText = "Die Druckvorschau des Kalenders wird angezeigt."
            .ImageKey = "bmpPRINTPREVIEW"
        End With
        
        With .Add("PARTICIPANTS")
            .category = "Kalender"
            .name = "Merkmale auswählen"
            .DescriptionText = "Die ausgewählten Merkmale können hier geändert werden. Es öffnet sich der Merkmalsdialog."
            .ImageKey = "bmpTEILNEHMER"
            .Selectable = False
        End With
        
        With .Add("GANTTMY")
            .category = "Kalender"
            .name = "Tag"
            .DescriptionText = "Der Kalender wird auf Tagesansicht umgeschaltet."
            .ImageKey = "bmpCAL1DAY"
        End With
        
        With .Add("GANTT1DAY")
            .category = "Kalender"
            .name = "Tag"
            .DescriptionText = "Der Kalender wird auf Tagesansicht umgeschaltet."
            .ImageKey = "bmpCAL1DAY"
        End With
        
        With .Add("GANTT5DAY")
            .category = "Kalender"
            .name = "Arbeitswoche"
            .DescriptionText = "Der Kalender wird auf die Arbeitswochenansicht umgeschaltet."
            .ImageKey = "bmpCAL5DAY"
        End With
        
        With .Add("GANTT7DAY")
            .category = "Kalender"
            .name = "Woche"
            .DescriptionText = "Der Kalender wird auf die Wochenansicht umgeschaltet."
            .ImageKey = "bmpCAL7DAY"
        End With
        
        With .Add("GANTT14DAY")
            .category = "Kalender"
            .name = "2 Wochen"
            .DescriptionText = "Der Kalender wird auf eine Ansicht mit 14 Tagen umgeschaltet."
            .ImageKey = "bmpCAL14DAY"
        End With
        
        With .Add("GANTT30DAY")
            .category = "Kalender"
            .name = "Monat"
            .DescriptionText = "Der Kalender wird auf die Monatsansicht umgeschaltet."
            .ImageKey = "bmpCAL31DAY"
        End With
        
        With .Add("GANTTPRINT")
            .category = "Kalender"
            .name = "Drucken"
            .DescriptionText = "Der Kalender wird in der aktuellen Ansicht ausgedruckt."
            .ImageKey = "bmpPRINT"
        End With
                
        With .Add("GANTTPRINTPREVIEW")
            .category = "Kalender"
            .name = "Druckvorschau"
            .DescriptionText = "Die Druckvorschau des Kalenders wird angezeigt."
            .ImageKey = "bmpPRINTPREVIEW"
        End With
        
        With .Add("GANTTPARTICIPANTS")
            .category = "Kalender"
            .name = "Merkmale auswählen"
            .DescriptionText = "Die ausgewählten Merkmale können hier geändert werden. Es öffnet sich der Merkmalsdialog."
            .ImageKey = "bmpTEILNEHMER"
            .Selectable = False
        End With
        
        With .Add("SHOWMERKMAL")
            .category = "Sonstiges"
            .name = "Merkmale anzeigen"
            .DescriptionText = "Die ausgewählten Merkmale werden angezeigt. Es öffnet sich der Merkmalsdialog."
            .ImageKey = "bmpMERKMALE"
            .Shortcut = ssF8
        End With
        
        
        With .Add("CALMY")
            .category = "Kalender"
            .name = "Mein Kalender"
            .DescriptionText = "Der Kalender wird auf die Ansicht mit Terminen mit Ihrem Benutzermerkmal umgestellt."
            .ImageKey = "bmpCALENDAR"
        End With
        
        With .Add("CALFORWARD")
            .category = "Kalender"
            .name = "Weiter"
            .DescriptionText = "Der Kalender wird um einen Tag, Woche oder Monat weitergeblättert."
            .ImageKey = "bmpCALRIGHT"
        End With
        
        With .Add("CALBACK")
            .category = "Kalender"
            .name = "Zurück"
            .DescriptionText = "Der Kalender wird um einen Tag, Woche oder Monat zurückgeblättert."
            .ImageKey = "bmpCALLEFT"
        End With
        
        With .Add("VORMY")
            .category = "Wiedervorlage"
            .name = "Meine Wiedervorlage"
            .DescriptionText = "Die Wiedervorlage wird auf Aktivitäten mit Ihrem Benutzermerkmal umgestellt."
            .ImageKey = "bmpVOR"
            .Selectable = False
        End With
        With .Add("VOR_USERDEF1")
            .category = "Wiedervorlage"
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "MkmButton0", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist eine benutzerdefinierte Wiedervorlage. Die Vorbelegung können Sie über die Funktion 'Einstellung Vorbelegung' ändern."
            .ImageKey = "bmpVOR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("VOR_USERDEF2")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "MkmButton1", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist eine benutzerdefinierte Wiedervorlage. Die Vorbelegung können Sie über die Funktion 'Einstellung Vorbelegung' ändern."
            .ImageKey = "bmpVOR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("VOR_USERDEF3")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "MkmButton2", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist eine benutzerdefinierte Wiedervorlage. Die Vorbelegung können Sie über die Funktion 'Einstellung Vorbelegung' ändern."
            .ImageKey = "bmpVOR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("VOR_USERDEF4")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "MkmButton3", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist eine benutzerdefinierte Wiedervorlage. Die Vorbelegung können Sie über die Funktion 'Einstellung Vorbelegung' ändern."
            .ImageKey = "bmpVOR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("VOR_USERDEF5")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "MkmButton4", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist eine benutzerdefinierte Wiedervorlage. Die Vorbelegung können Sie über die Funktion 'Einstellung Vorbelegung' ändern."
            .ImageKey = "bmpVOR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("VOR_USERDEF6")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "MkmButton5", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist eine benutzerdefinierte Wiedervorlage. Die Vorbelegung können Sie über die Funktion 'Einstellung Vorbelegung' ändern."
            .ImageKey = "bmpVOR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("VOR_USERDEF7")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "MkmButton6", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist eine benutzerdefinierte Wiedervorlage. Die Vorbelegung können Sie über die Funktion 'Einstellung Vorbelegung' ändern."
            .ImageKey = "bmpVOR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("VOR_USERDEF8")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "MkmButton7", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist eine benutzerdefinierte Wiedervorlage. Die Vorbelegung können Sie über die Funktion 'Einstellung Vorbelegung' ändern."
            .ImageKey = "bmpVOR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("VOR_USERDEF9")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "MkmButton8", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist eine benutzerdefinierte Wiedervorlage. Die Vorbelegung können Sie über die Funktion 'Einstellung Vorbelegung' ändern."
            .ImageKey = "bmpVOR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("VOR_USERDEF10")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "MkmButton9", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist eine benutzerdefinierte Wiedervorlage. Die Vorbelegung können Sie über die Funktion 'Einstellung Vorbelegung' ändern."
            .ImageKey = "bmpVOR"                           '#i18n|406|5
            .Selectable = False
        End With

        With .Add("VOR_USERDEFCONFIG")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .DescriptionText = "Die Vorbelegung für die benutzerdefinierten Wiedervorlagen lässt sich hier einstellen."
            .name = "Weitere Wiedervorlagen"                              '#i18n|405|5
            .ImageKey = "bmpOTHERTODO"
            .Selectable = False
        End With
        
        With .Add("CALENDAR_USERDEF1")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "CalendarMkmButton0", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist ein benutzerdefinierter Kalender. Die Vorbelegung können Sie über die Funktion 'Einstellung Kalender Vorbelegung' ändern."
            .ImageKey = "bmpCALENDAR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("CALENDAR_USERDEF2")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "CalendarMkmButton1", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist ein benutzerdefinierter Kalender. Die Vorbelegung können Sie über die Funktion 'Einstellung Kalender Vorbelegung' ändern."
            .ImageKey = "bmpCALENDAR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("CALENDAR_USERDEF3")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "CalendarMkmButton2", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist ein benutzerdefinierter Kalender. Die Vorbelegung können Sie über die Funktion 'Einstellung Kalender Vorbelegung' ändern."
            .ImageKey = "bmpCALENDAR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("CALENDAR_USERDEF4")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "CalendarMkmButton3", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist ein benutzerdefinierter Kalender. Die Vorbelegung können Sie über die Funktion 'Einstellung Kalender Vorbelegung' ändern."
            .ImageKey = "bmpCALENDAR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("CALENDAR_USERDEF5")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "CalendarMkmButton4", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist ein benutzerdefinierter Kalender. Die Vorbelegung können Sie über die Funktion 'Einstellung Kalender Vorbelegung' ändern."
            .ImageKey = "bmpCALENDAR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("CALENDAR_USERDEF6")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "CalendarMkmButton5", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist ein benutzerdefinierter Kalender. Die Vorbelegung können Sie über die Funktion 'Einstellung Kalender Vorbelegung' ändern."
            .ImageKey = "bmpCALENDAR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("CALENDAR_USERDEF7")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "CalendarMkmButton6", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist ein benutzerdefinierter Kalender. Die Vorbelegung können Sie über die Funktion 'Einstellung Kalender Vorbelegung' ändern."
            .ImageKey = "bmpCALENDAR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("CALENDAR_USERDEF8")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "CalendarMkmButton7", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist ein benutzerdefinierter Kalender. Die Vorbelegung können Sie über die Funktion 'Einstellung Kalender Vorbelegung' ändern."
            .ImageKey = "bmpCALENDAR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("CALENDAR_USERDEF9")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "CalendarMkmButton8", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist ein benutzerdefinierter Kalender. Die Vorbelegung können Sie über die Funktion 'Einstellung Kalender Vorbelegung' ändern."
            .ImageKey = "bmpCALENDAR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("CALENDAR_USERDEF10")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .name = GetMKMStringFromDSNList(g_DBIni.getStr("Wiedervorlage", "CalendarMkmButton9", "", IT_USER))  'wenn nichts gesetzt wurde = "(nicht definiert)"
            .DescriptionText = "Dies ist ein benutzerdefinierter Kalender. Die Vorbelegung können Sie über die Funktion 'Einstellung Kalender Vorbelegung' ändern."
            .ImageKey = "bmpCALENDAR"                           '#i18n|406|5
            .Selectable = False
        End With
        With .Add("CALENDAR_USERDEFCONFIG")
            .category = "Wiedervorlage"                          '#i18n|404|5
            .DescriptionText = "Die Vorbelegung für die benutzerdefinierten Kalender lässt sich hier einstellen."
            .name = "Weitere Kalender"                              '#i18n|405|5
            .ImageKey = "bmpOTHERCALENDAR"
            .Selectable = False
        End With

        
        With .Add("REFRESHTREE")
            .category = "Bearbeiten"
            .name = "Hierarchie aktualisieren"
            .ToolTipText = "Hierarchieliste aktualisieren"
            .DescriptionText = "Startet die manuelle Aktualisierung der Hierarchieliste. Hierarchielisten sind in den Fenstern Adressen, Projekte und Objekte zu finden."
            .ImageKey = "bmpHIERARCHIEAKTUALISIEREN"
        End With
        
        With .Add("PROPERTYEXCHANGESTARTTRANSFER")
            .category = "Immobilienbörsen"
            .name = "Übertragung starten"
            .DescriptionText = "Die Übertragung wird für die ausgewählten Immobilienportale gestartet."
            .ImageKey = "bmpPROPERTYEXCHANGESTARTTRANSFER"
        End With
        With .Add("PROPERTYEXCHANGESELECTALL")
            .category = "Immobilienbörsen"
            .name = "Alle Börsen auswählen"
            .DescriptionText = "Alle Immobilienportale werden ausgewählt oder abgewählt."
            .ImageKey = "bmpPROPERTYEXCHANGESELECTALL"
        End With
        With .Add("PROPERTYEXCHANGEMARKALLOBJ")
            .category = "Immobilienbörsen"
            .name = "Alle Objekte als geändert markieren"
            .ToolTipText = "Alle Objekte als geändert markieren"
            .DescriptionText = "Dadurch werden diese Objekte inkl. Bildern auch ohne Änderungen am Datenbestand immer übertragen. Diese Funktion eignet sich zum Experimentieren mit Bildgrössen und Rahmen."
            .ImageKey = "bmpPROPERTYEXCHANGEMARKALLOBJ"
        End With
        With .Add("PROPERTYEXCHANGEOBJTRACKINGDOCUMENTS")
            .category = "Immobilienbörsen"
            .name = "Objekttracking Dokumente"
            .ToolTipText = "Objekttracking Dokumente anzeigen"
            .DescriptionText = "Alle Aktivitätenanhänge für das Objekttracking werden in Excel anzeigt. WICHTIG: Die Macrosicherheit in Excel muss auf mittel bzw. niedrig eingestellt sein."
            .ImageKey = "bmpEXCELDOC"
        End With
        
       With .Add("EXPOSE_OPEN")
            .category = "Objekt"
            .name = "Exposé öffnen"
            .DescriptionText = "Das erstellte Exposé wird geöffnet."
            .ImageKey = "bmpWINWORD"
            .Enabled = False
        End With
        With .Add("EXPOSE_AUTOMATISCH")
            .category = "Objekt"
            .name = "Exposé erstellen"
            .DescriptionText = "Das Exposé für das angezeigte Objekt wird automatisch erstellt bzw. aktualisiert."
            .ImageKey = "bmpWINWORD"
            .Enabled = False
        End With
        With .Add("EXPOSE_AUTOMATISCH_LISTE")
            .category = "Objekt"
            .name = "Exposés für Objektliste erstellen"
            .DescriptionText = "Die Exposés für alle in der Liste enthaltenen Objekte werden automatisch erstellt bzw. aktualisiert."
            .ImageKey = "bmpWINWORD"
            .Enabled = False
        End With
        With .Add("EXPOSE_AUTOMATISCH_VORLAGE")
            .category = "Objekt"
            .name = "Exposé über Vorlage erstellen"
            .DescriptionText = "Das Exposé wird über eine auswählbare Vorlage erstellt bzw. aktualisiert."
            .ImageKey = "bmpWINWORD"
            .Enabled = False
        End With
        With .Add("EXPOSE_AUTOMATISCHLISTE_WAEHLBAR")
            .category = "Objekt"
            .name = "Exposés für Objektliste über Vorlage erstellen"
            .DescriptionText = "Die Exposés werden über eine auswählbare Vorlage für alle Objekte aus der Liste erstellt bzw. aktualisiert."
            .ImageKey = "bmpWINWORD"
            .Enabled = False
        End With
        With .Add("EXPOSE_DDE_ERSTELLEN")
            .category = "Objekt"
            .name = "DDE-Exposé über Vorlage erstellen"
            .DescriptionText = "Das Exposé wird über eine auswählbare DDE-Vorlage erstellt."
            .ImageKey = "bmpWINWORD"
            .Enabled = False
        End With
        With .Add("EXPOSE_DDE_AKTUALISIEREN")
            .category = "Objekt"
            .name = "DDE-Exposé aktualisieren"
            .DescriptionText = "Die DDE-Platzhalter werden im Exposé aktualisiert."
            .ImageKey = "bmpWINWORD"
            .Enabled = False
        End With
        With .Add("SAVE_OBJECT_VISUALISATION_SCREEN")
            .category = "Bearbeiten"
            .name = "2D-Modell exportieren"
            .ImageKey = "bmpSaveObjectVisualisation"
            .Enabled = True
            .Selectable = True
            .DescriptionText = "Speichert das 2D-Modell als Bild im Multimedia-Bereich des Objektes ab. Somit steht es zur Veröffentlichung auf Immobilienportalen oder zur Weiterverwendung in Exposés zur Verfügung."
        End With
        With .Add("OBJ_NEW_UNIT")
            .category = "Bearbeiten"
            .name = "Neue Einheit im 2D-Modell anlegen"
            .ImageKey = "bmpNewUnit"
            .Enabled = True
            .Selectable = True
            .DescriptionText = "Ruft zum Anlegen einer neuen Einheit den Anlagedialog des 2D-Models auf."
        End With
        
        With .Add("AKT_CREATE_INVITATION")
            .category = "Bearbeiten"
            .name = "Neue Besprechung"
            .ImageKey = "bmpCreateMeeting"
            .Enabled = True
            .Selectable = True
            .DescriptionText = "Konvertiert den ausgewählten Termin in eine Besprechung. Hier ist es möglich Teilnehmer einzuladen."
        End With
        If (g_offApplication.isAppointmentWorkFlowAvailable()) Then
            
            'ASO 13.05.2014, Button, Teilnehmer erneut einladen
            With .Add("AKT_REINVITE_MEMBER")
                .category = "Bearbeiten"
                .name = "Teilnehmer erneut einladen"
                .ImageKey = "bmpSENDEN"
                .Enabled = True
                .Selectable = True
                .DescriptionText = "Lädt alle Teilnehmer dieser Besprechung erneut ein."
            End With
        End If
        With .Add("AKT_SEND_TO_FF_API")
            .category = "Bearbeiten"
            .name = "E-Mail an FLOWFACT API weiterleiten"
            .ImageKey = ""
            .Enabled = True
            .Selectable = True
            .DescriptionText = "Leitet die ausgewählte eingehende E-Mail zur weiteren Verarbeitung an die FLOWFACT API weiter. Zum Beispiel für eingehende Termineinladungen."
        End With
        With .Add("FLOWFACTAPI_AVAILABILITY_CHECK")
            .category = "Bearbeiten"
            .name = "FLOWFACT API Verfügbarkeitsprüfung"
            .ImageKey = ""
            .Enabled = True
            .Selectable = True
            .DescriptionText = "Prüft ob die FLOWFACT API und ihre angeschlossenen Komponenten erreichbar sind."
        End With
        
        With .Add("ISR_OFFER_SEND")
            .Enabled = True
            .category = "Bearbeiten"
            .name = "Offerten erstellen"
            .ImageKey = "bmpISR"
            .DescriptionText = "Den ausgewählten Interessenten dieses Objekt anbieten oder diese Objekte dem Interessenten anbieten."
        End With
            
        If (g_offApplication.isNewSelectionAvailable()) Then
            With .Add("ISR_RUN_ESTATE")
                .category = "Bearbeiten"
                .name = "Interessenten finden"
                .ImageKey = "bmpISRRunEstate"
                .DescriptionText = "Führt die Selektion aus dem Objektefenster heraus aus."
            End With
            
            With .Add("ISR_RUN_CONTACT_AUTO")
                .category = "Bearbeiten"
                .name = "Immobilien finden"
                .ImageKey = "bmpISRRunContact"
                .DescriptionText = "Führt die Selektion aus dem Adressfenster oder Anfragefenster heraus aus."
            End With
            
            With .Add("ISR_RUN_CONTACT_CONTACT_OPENED")
                .category = "Bearbeiten"
                .Selectable = False
                .name = "Für die geöffnete Adresse"
                .DescriptionText = "Sucht nach Immobilien für die aktuell geöffnete Adresse."
            End With
            
            With .Add("ISR_RUN_CONTACT_WITHOUT_CONTACT")
                .category = "Bearbeiten"
                .name = "Unabhängig von einer Adresse"
                .DescriptionText = "Sucht unabhängig von einer Adresse nach Immobilien."
            End With
            
            With .Add("ISR_RUN_INQUIRY")
                .category = "Bearbeiten"
                .name = "Immobilien finden"
                .ImageKey = "bmpISRRunContact"
                .DescriptionText = "Führt die Selektion aus dem Anfragefenster heraus aus."
            End With
            
            With .Add("ISR_VIEW_TABLE")
                .category = "Ansicht"
                .name = "Liste"
                .ImageKey = "bmpISRViewTable"
                .DescriptionText = "Zeigt die Selektionsergebnisse in der Listenansicht an."
            End With
            
            With .Add("ISR_VIEW_DETAILS")
                .category = "Ansicht"
                .name = "Details"
                .ImageKey = "bmpISRViewDetails"
                .DescriptionText = "Zeigt die Selektionsergebnisse in der Detailansicht an."
            End With
            
            With .Add("ISR_VIEW_MAP")
                .category = "Ansicht"
                .name = "Karte"
                .ImageKey = "bmpISRViewMap"
                .DescriptionText = "Zeigt die Selektionsergebnisse in der Kartenansicht an."
            End With
            
            With .Add("ISR_VIEW_MOSAIC")
                .category = "Ansicht"
                .name = "Mosaik"
                .ImageKey = "bmpISRViewMosaic"
                .DescriptionText = "Zeigt die Selektionsergebnisse in der Mosaikansicht an."
            End With
            
            With .Add("ISR_OPTIONS")
                .category = "Bearbeiten"
                .name = "Optionen"
                .ImageKey = "bmpISROptions"
                .DescriptionText = "Ruft das Fenster zum Bearbeiten der Selektionseinstellungen auf."
            End With
            
            With .Add("ISR_REMINDLIST_ADD")
                .category = "Bearbeiten"
                .name = "Zur Merkliste hinzufügen"
                .ImageKey = "bmpISRRemindListAdd"
                .DescriptionText = "Ein Objekt oder Interessent zur Merkliste hinzufügen."
            End With
            
            With .Add("ISR_ADD_CONTACT") 
                .category = "Bearbeiten"
                .name = "Interessent hinzufügen"
                .ImageKey = "bmpISRAddContact"
                .DescriptionText = "Mit dieser Funktion können Sie manuell einen oder mehrere Interessenten zum Selektionsergebnis hinzufügen. Dabei haben Sie die Möglichkeit anhand von Suchbegriffen passende Interessenten zu finden oder die aktuelle Adressliste zu verwenden."
            End With
            
            With .Add("ISR_ADD_CONTACT_BY_SEARCH") 
                .category = "Bearbeiten"
                .name = "Zusätzliche Interessenten suchen"
                .ImageKey = "bmpSUCHEN"
                .DescriptionText = "Fügt ein oder mehrere Interessenten zum Selektionsergebnis hinzu."
            End With
            
            With .Add("ISR_ADD_CONTACT_BY_LIST") 
                .category = "Bearbeiten"
                .name = "Aktuelle Adressliste verwenden"
                .ImageKey = "bmpISRAddContactFromList"
                .DescriptionText = "Fügt ein oder mehrere Interessenten zum Selektionsergebnis hinzu."
            End With
            With .Add("ISR_ADD_ESTATE") 
                .category = "Bearbeiten"
                .name = "Immobilien hinzufügen"
                .ImageKey = "bmpISRAddEstate"
                .DescriptionText = "Mit dieser Funktion können Sie manuell eine oder mehrere Immobilien zum Selektionsergebnis hinzufügen. Dabei haben Sie die Möglichkeit anhand von Suchbegriffen passende Immobilien zu finden oder die aktuelle Objektliste zu verwenden."
            End With
            
            With .Add("ISR_ADD_ESTATE_BY_SEARCH") 
                .category = "Bearbeiten"
                .name = "Zusätzliche Immobilien suchen"
                .ImageKey = "bmpSUCHEN"
                .DescriptionText = "Fügt eine oder mehrere Immobilien zum Selektionsergebnis hinzu."
            End With
            
            With .Add("ISR_ADD_ESTATE_BY_LIST") 
                .category = "Bearbeiten"
                .name = "Aktuelle Objektliste verwenden"
                .ImageKey = "bmpISRAddEstateFromList"
                .DescriptionText = "Fügt ein oder mehrere Immobilien zum Selektionsergebnis hinzu."
            End With
            
            With .Add("ISR_INQUIRY_SAVE_AUTO")
                .category = "Bearbeiten"
                .name = "Anfrage speichern"
                .ImageKey = "bmpISRInquiryAutoSave"
                .DescriptionText = "Speichert die angezeigten Informationen in einer Anfrage."
            End With
            
            With .Add("ISR_INQUIRY_SAVE_OVERRIDE")
                .category = "Bearbeiten"
                .name = "Aktuelle Anfrage überschreiben"
                .DescriptionText = "Speichert die angezeigten Informationen in der aktuellen Anfrage."
            End With
            
            With .Add("ISR_INQUIRY_SAVE_NEW_INQUIRY")
                .category = "Bearbeiten"
                .name = "Als neue Anfrage speichern"
                .DescriptionText = "Speichert die angezeigten Informationen in einer neuen Anfrage."
            End With
            
            With .Add("ISR_INQUIRY_SAVE_NEW_ADRESS")
                .category = "Bearbeiten"
                .name = "Unter neuer Adresse speichern"
                .DescriptionText = "Speichert die angezeigten Informationen in einer neuen Anfrage unter einer neuen Adresse"
            End With
        Else
            With .Add("COMPLETEMANUALSELECTION")
                .category = "Bearbeiten"
                .name = "Manuelle Selektion ausführen"
                .ImageKey = "bmpManualISR"
                .Enabled = False
                .Selectable = False
                .DescriptionText = "Führt die Manuelle Selektion aus."
            End With
        End If
    
    End With

End Sub