Liste aller commands (außer die aus Scripting):

Public Sub Init()
    Dim strlist As String
    Set m_oCommands = New cCommands
    With m_oCommands
        .ToolBar = F_MAIN.SSActiveToolBars
        .trv = F_MAIN.trvNavigator
        .ImageList = F_MAIN.ImageListKlein

        With .Add("fcmdFile")                              '#i18n|26|5
            .Category = "Menüs"                            '#i18n|27|5
            .name = "Datei"                                '#i18n|28|5
            .typ = ssTypeMenu
        End With
        With .Add("MNUEXTRAS")                             '#i18n|32|5
            .Category = "Menüs"                            '#i18n|33|5
            .name = "Extras"                               '#i18n|34|5
            .typ = ssTypeMenu
        End With
        With .Add("MNUARCHIV")                             '#i18n|38|5
            .Category = "Menüs"                            '#i18n|39|5
            .name = "Archiv"                               '#i18n|40|5
            .typ = ssTypeMenu
        End With

        With .Add("MNUMAIL")                               '#i18n|45|5
            .Category = "Menüs"                            '#i18n|46|5
            .name = "E-Mail"                               '#i18n|47|5
            .typ = ssTypeMenu
        End With
        With .Add("MNUGEOANALYZER")                        '#i18n|51|5
            .Category = "Menüs"                            '#i18n|52|5
            .name = "GeoAnalyzer"                          '#i18n|53|5
            .typ = ssTypeMenu
        End With
        With .Add("MNUANSICHT")                            '#i18n|57|5
            .Category = "Menüs"                            '#i18n|58|5
            .name = "Ansicht"                              '#i18n|59|5
            .typ = ssTypeMenu
        End With
        With .Add("MNUFENSTER")                            '#i18n|63|5
            .Category = "Menüs"                            '#i18n|64|5
            .name = "Fenster"                              '#i18n|65|5
            .typ = ssTypeMenu
        End With
        With .Add("MNUADMIN")                              '#i18n|69|5
            .Category = "Menüs"                            '#i18n|70|5
            .name = "Administration"                       '#i18n|71|5
            .typ = ssTypeMenu
            .ImageKey = "bmpOPTIONS"                       '#i18n|73|5
        End With
        With .Add("MNUPP")                                 '#i18n|76|5
            .Category = "Menüs"                            '#i18n|77|5
            .name = "PostPerfect"                          '#i18n|78|5
            .typ = ssTypeMenu
        End With
        With .Add("MNUINTERNET")                           '#i18n|82|5
            .Category = "Menüs"                            '#i18n|83|5
            .name = "Internet"                             '#i18n|84|5
            .typ = ssTypeMenu
        End With
        With .Add("MNUKALENDER")                           '#i18n|88|5
            .Category = "Menüs"                            '#i18n|89|5
            .name = "Kalender"                             '#i18n|90|5
            .typ = ssTypeMenu
        End With
        With .Add("MNUKURSE")                              '#i18n|94|5
            .Category = "Menüs"                            '#i18n|95|5
            .name = "Kurse"                                '#i18n|96|5
            .typ = ssTypeMenu
        End With
        With .Add("MNUDOKUMENTE")                          '#i18n|100|5
            .Category = "Menüs"                            '#i18n|101|5
            .name = "Dokumente"                            '#i18n|102|5
            .typ = ssTypeMenu
        End With
        With .Add("MNULISTEN")                             '#i18n|106|5
            .Category = "Menüs"                            '#i18n|107|5
            .name = "Listen"                               '#i18n|108|5
            .typ = ssTypeMenu
        End With
        With .Add("MNUHELP")                               '#i18n|112|5
            .Category = "Menüs"                            '#i18n|113|5
            .name = "?"
            .typ = ssTypeMenu
        End With
        With .Add("MERGEADRESSEN")                         '#i18n|118|5
            .Category = "Sonstiges"                        '#i18n|119|5
            .name = "Adressen zusammenlegen"               '#i18n|120|5
            .ImageKey = "bmpADZUSAMMEN"
        End With
        With .Add("MONATSUEBERSICHT")                      '#i18n|123|5
            .Category = "Sonstiges"                        '#i18n|124|5
            .name = "Monatsübersicht"                      '#i18n|125|5
            .ImageKey = "bmp31DAYS"                        '#i18n|126|5
        End With
        With .Add("HOME")                                  '#i18n|128|5
            .Category = "Sonstiges"                        '#i18n|129|5
            .name = "Portalseite"                                 '#i18n|130|5
            .ImageKey = "bmpHOME"                          '#i18n|131|5
        End With
        With .Add("UMRECHNUNGEN")                          '#i18n|134|5
            .Category = "Sonstiges"                        '#i18n|135|5
            .name = "Währungsumrechnung"                   '#i18n|136|5
            .ImageKey = "bmpKURSE"                         '#i18n|137|5
        End With
        With .Add("QUIT")                                  '#i18n|140|5
            .Category = "Datei"                            '#i18n|141|5
            .DefaultFatherID = "fcmdFile"                  '#i18n|142|5
            .name = "Beenden"                              '#i18n|143|5
            '.Shortcut = ssCtrlQ    'KK:Terminalserver haben ein Problem damit
        End With
        With .Add("SUCHEN")                                '#i18n|147|5
            .Category = "Bearbeiten"                       '#i18n|148|5
            .name = "Suchen"                               '#i18n|149|5
            .ImageKey = "bmpSUCHEN"                        '#i18n|150|5
            .Shortcut = ssF9
        End With
        With .Add("EXTENDEDSEARCH")                        '#i18n|154|5
            .Category = "Bearbeiten"                       '#i18n|155|5
            .name = "Erweiterte Suche"                     '#i18n|156|5
            .ImageKey = "bmpEXTENDEDSEARCH"                '#i18n|157|5
        End With

        With .Add("POPANDSMTP")                            '#i18n|161|5
            .Category = "Mail"                           '#i18n|162|5
            .name = "Mails empfangen/senden"               '#i18n|163|5
            .ImageKey = "bmpSENDENEMPFANGEN"               '#i18n|164|5
            '.ImageKey = "bmpSUCHEN"
            '.Shortcut = ssF9
        End With
        With .Add("SMTP")                            '#i18n|161|5
            .Category = "Mail"                           '#i18n|162|5
            .name = "Mails senden"               '#i18n|163|5
            .ImageKey = "bmpSENDEN"               '#i18n|164|5
            '.ImageKey = "bmpSUCHEN"
            '.Shortcut = ssF9
        End With
        With .Add("ADDFAVORITEN")                          '#i18n|169|5
            .Category = "Datei"                            '#i18n|170|5
            .name = "Zu Favoriten hinzufügen"              '#i18n|171|5
            .ImageKey = "bmpFAVORITEN"                     '#i18n|172|5
        End With
        With .Add("SHOWFAVORITEN")                         '#i18n|175|5
            .Category = "Datei"                            '#i18n|176|5
            .name = "Favoriten anzeigen"                   '#i18n|177|5
            .ImageKey = "bmpFAVORITEN"                     '#i18n|178|5
        End With
        With .Add("GESENDET")                              '#i18n|181|5
            .Category = "Mail"                           '#i18n|182|5
            .name = "Gesendet"                             '#i18n|183|5
            .ImageKey = "bmpGESENDET"                      '#i18n|184|5
        End With
        With .Add("POSTAUSGANG")                           '#i18n|187|5
            .Category = "Mail"                           '#i18n|188|5
            .name = "Postausgang"                          '#i18n|189|5
            .ImageKey = "bmpPOSTAUSGANG"                   '#i18n|190|5
        End With
        With .Add("POSTEINGANG")                           '#i18n|193|5
            .Category = "Mail"                           '#i18n|194|5
            .name = "Posteingang"                          '#i18n|195|5
            .ImageKey = "bmpPOSTEINGANG"                   '#i18n|196|5
        End With
        With .Add("SPAMMANAGER")                           '#i18n|193|5
            .Category = "Mail"                           '#i18n|194|5
            .name = "Spam-Manager"                          '#i18n|195|5
            .ImageKey = "bmpSPAM"                   '#i18n|196|5
        End With

        If Application.isVersion(2008) = True Then
            With .Add("DISTRIBUTIONLIST")
                .Category = "Mail"
                .name = "Verteiler"
                .ImageKey = "bmpDISTRIBUTIONLIST"
            End With
        End If

        With .Add("NEUEMAIL")                              '#i18n|199|5
            .Category = "Mail"                           '#i18n|200|5
            .name = "Neue E-Mail"                          '#i18n|201|5
            .ImageKey = "bmpNEWMAIL"                       '#i18n|202|5
        End With
        With .Add("MAILMANAGER")
            .Category = "Mail"
            .name = "Mailmanager"
            .ImageKey = "bmpMAILMANAGER"
        End With

        With .Add("GEOANALYZER_STARTEN")                   '#i18n|205|5
            .Category = "GeoAnalyzer"                      '#i18n|206|5
            .name = "GeoAnalyzer starten"                  '#i18n|207|5
            .ImageKey = "bmpGEOANALYZER"                   '#i18n|208|5
        End With
        With .Add("GEOANALYZER_SHOWACTIVE")                '#i18n|211|5
            .Category = "GeoAnalyzer"                      '#i18n|212|5
            .name = "Adresse anzeigen"                     '#i18n|213|5
            .ImageKey = "bmpGEOANALYZER"                   '#i18n|214|5
        End With
        With .Add("GEOANALYZER_ROUTE")                     '#i18n|217|5
            .Category = "GeoAnalyzer"                      '#i18n|218|5
            .name = "Route planen"                         '#i18n|219|5
            .ImageKey = "bmpGEOANALYZER"                   '#i18n|220|5
        End With
        With .Add("GEOANALYZER_SHOWLIST")                  '#i18n|223|5
            .Category = "GeoAnalyzer"                      '#i18n|224|5
            .name = "Liste anzeigen"                       '#i18n|225|5
            .ImageKey = "bmpGEOANALYZER"                   '#i18n|226|5
        End With
        With .Add("INDEXSUCHE")                            '#i18n|229|5
            .Category = "Bearbeiten"                       '#i18n|230|5
            .name = "Indexsuche"                           '#i18n|231|5
            .ImageKey = "bmpINDEXSUCHE"                    '#i18n|232|5
        End With
        With .Add("AD")
            .Category = "Fenster"                          '#i18n|236|5
            .name = "Adressen"                             '#i18n|237|5
            .ImageKey = "bmpAD"                            '#i18n|238|5
            .Shortcut = ssCtrlS
        End With
        If ValidCompany Then
            With .Add("LIZENZ")                                '#i18n|242|5
                .Category = "Fenster"                          '#i18n|243|5
                .name = "Lizenzcodes"                          '#i18n|244|5
                .ImageKey = "bmpSECURITY"
                .Shortcut = ssF12
            End With
        End If
        If ValidCompany Then
            With .Add("LIZENZSHOW")                            '#i18n|248|5
                .Category = "Fenster"                          '#i18n|249|5
                .name = "Lizenzcodefenster"                    '#i18n|250|5
                .ImageKey = "bmpSECURITY"
            End With
        End If
        With .Add("BIBLIOTHEK")                            '#i18n|253|5
            .Category = "Fenster"                          '#i18n|254|5
            .name = "Bibliothek"                           '#i18n|255|5
            .ImageKey = "bmpBIBLIOTHEK"
        End With
        With .Add("FCMDCONNEX")                            '#i18n|258|5
            .Category = "Fenster"                          '#i18n|259|5
            .name = "Connex"                               '#i18n|260|5
            .ImageKey = "bmpCONNEX"                        '#i18n|261|5
        End With
        With .Add("PALMPILOT")                             '#i18n|264|5
            .Category = "Fenster"                          '#i18n|265|5
            .name = "PalmPilot"                            '#i18n|266|5
            .ImageKey = "bmpHOTSYNC"                       '#i18n|267|5
        End With
        With .Add("OUTLOOKEXPORT")                         '#i18n|270|5
            .Category = "Datei"                            '#i18n|271|5
            .name = "Datenabgleich zu Outlook"             '#i18n|272|5
            .ImageKey = "bmpOUTLOOK"                       '#i18n|273|5
        End With
        With .Add("CDOSYNCHRONISATIONSCONFIG")             '#i18n|276|5
            .Category = "Administration"                   '#i18n|277|5
            .name = "Konfiguration Outlook Synchronisation"    '#i18n|278|5
            .ImageKey = "bmpOUTLOOK"                       '#i18n|279|5
        End With
        With .Add("OPENXMLEXPORT")                         '#i18n|282|5
            .Category = "Datei"                            '#i18n|283|5
            .name = "Export von XML-Daten"                 '#i18n|284|5
            .ImageKey = "bmpXMLEXPORT"                 '#i18n|285|5
        End With
        With .Add("IMMOXMLIMPORT")                         '#i18n|288|5
            .Category = "Datei"                            '#i18n|289|5
            .name = "Import von XML-Dateien"               '#i18n|290|5
            .ImageKey = "bmpXMLIMPORT"                        '#i18n|291|5
        End With
        
        If Application.isVersion(2008) = True Then
            With .Add("HAUSBANKPDFIMPORT")                         '#i18n|288|5
                .Category = "Datei"                            '#i18n|289|5
                .name = "Hausbank-PDFImport"                       '#i18n|290|5
                .ImageKey = "bmpXMLIMPORT"                        '#i18n|291|5
            End With
        End If
        With .Add("ASSISTENTGRUND")                        '#i18n|294|5
            .Category = "Hilfe"                            '#i18n|295|5
            .name = "Grundeinrichtungs-Assistent"          '#i18n|296|5
            .ImageKey = "bmpOPTIONS"                       '#i18n|297|5
        End With
        With .Add("CHECK4UPDATE")                          '#i18n|300|5
            .Category = "Hilfe"                            '#i18n|301|5
            .name = "FlowFact aktualisieren"               '#i18n|302|5
            .ImageKey = "bmpCHECK4UPDATE"                  '#i18n|303|5
        End With
        With .Add("SHOWADWEB")
            .Category = "Bearbeiten"
            .name = "Adresse im Internet anzeigen"
            .ImageKey = "bmpINTERNETAD"
        End With

        With .Add("SETUPADD")                              '#i18n|306|5
            .Category = "Hilfe"                            '#i18n|307|5
            .name = "MSOffice AddIns installieren"         '#i18n|308|5
            .ImageKey = "bmpOPTIONS"                       '#i18n|309|5
        End With
        With .Add("ASSISTENTBEN")                          '#i18n|312|5
            .Category = "Hilfe"                            '#i18n|313|5
            .name = "Benutzereinrichtungs-Assistent"       '#i18n|314|5
            .ImageKey = "bmpOPTIONS"                       '#i18n|315|5
        End With
        With .Add("ASSISTENTSCHNITT")                      '#i18n|318|5
            .Category = "Hilfe"                            '#i18n|319|5
            .name = "Schnittstellen-Assistent"             '#i18n|320|5
            .ImageKey = "bmpOPTIONS"                       '#i18n|321|5
        End With
        With .Add("DETAILS")
            .Category = "Fenster"                          '#i18n|325|5
            .name = "Details"                              '#i18n|326|5
            .ImageKey = "bmpDETAILS"                       '#i18n|327|5
        End With
        With .Add("IMPORT")                                '#i18n|330|5
            .Category = "Datei"                            '#i18n|331|5
            .name = "Importassistent"                      '#i18n|332|5
            .ImageKey = "bmpIMPORT"                        '#i18n|333|5
        End With
        With .Add("OBJ")
            .Category = "Fenster"                          '#i18n|337|5
            .name = "Objekte"                              '#i18n|338|5
            .ImageKey = "bmpOBJ"                           '#i18n|339|5
            .Shortcut = ssCtrlO
        End With
        With .Add("ANF")
            .Category = "Fenster"                          '#i18n|344|5
            .name = "Anfragen"                             '#i18n|345|5
            .ImageKey = "bmpANF"                           '#i18n|346|5
            .Shortcut = ssCtrlF
        End With
        With .Add("AKTEN")
            .Category = "Fenster"                          '#i18n|351|5
            .name = "Akten"                                '#i18n|352|5
            .ImageKey = "bmpAKTEN"                         '#i18n|353|5
        End With
        With .Add("PROJEKTE")
            .Category = "Fenster"                          '#i18n|357|5
            .name = "Projekte"                             '#i18n|358|5
            .ImageKey = "bmpPROJEKTE"                      '#i18n|359|5
            .Shortcut = ssCtrlP
        End With
        With .Add("IMMONET")                               '#i18n|363|5
            .Category = "Fenster"                          '#i18n|364|5
            .name = "Internetbörsen"                       '#i18n|365|5
            .ImageKey = "bmpOBJEKTEONLINE"                 '#i18n|366|5
            .Shortcut = ssCtrlI
        End With
        With .Add("ARCHIV")
            .Category = "Fenster"                          '#i18n|371|5
            .name = "Archiv"                               '#i18n|372|5
            .ImageKey = "bmpARCHIV"                        '#i18n|373|5
        End With
        With .Add("ISR")
            .Category = "Fenster"                          '#i18n|377|5
            .name = "Selektion"                            '#i18n|378|5
            .ImageKey = "bmpISR"                           '#i18n|379|5
            '.Shortcut = ssCtrlS
        End With
        With .Add("VERTRAEGE")                             '#i18n|383|5
            .Category = "Fenster"                          '#i18n|384|5
            .name = "Verträge"                             '#i18n|385|5
            .ImageKey = "bmpVERTRAEGE"                     '#i18n|386|5
        End With
        With .Add("AKT")
            .Category = "Fenster"                          '#i18n|390|5
            .name = "Aktivitäten"                          '#i18n|391|5
            .ImageKey = "bmpAKT"                           '#i18n|392|5
            .Shortcut = ssCtrlT
        End With
        '        With .Add("VORGAENGE")
        '            .Category = "Fenster"
        '            .name = "Vorgänge"
        '            .ImageKey = "bmpVORGANG"
        '                .Shortcut = ssCtrlT
        '        End With
        With .Add("VOR")
            .Category = "Fenster"                          '#i18n|404|5
            .name = "Wiedervorlage"                              '#i18n|405|5
            .ImageKey = "bmpVOR"                           '#i18n|406|5
            .Shortcut = ssCtrlW
        End With
        With .Add("CALENDAR")                              '#i18n|410|5
            .Category = "Fenster"                          '#i18n|411|5
            .name = "Kalender"                             '#i18n|412|5
            .ImageKey = "bmpCALENDAR"                      '#i18n|413|5
            .Shortcut = ssCtrlK
        End With
        With .Add("GANTT")                                 '#i18n|417|5
            .Category = "Fenster"                          '#i18n|418|5
            .name = "Gantt"                                '#i18n|419|5
            .ImageKey = "bmpGANTT"                         '#i18n|420|5
        End With
        With .Add("fcmdEdit")                              '#i18n|423|5
            .Category = "Menüs"                            '#i18n|424|5
            .name = "Bearbeiten"                           '#i18n|425|5
            .typ = ssTypeMenu
        End With
        With .Add("NEU")                                   '#i18n|429|5
            .Category = "Bearbeiten"                       '#i18n|430|5
            .name = "Neu"                                  '#i18n|431|5
            .ImageKey = "bmpNEU"                           '#i18n|432|5
        End With
        With .Add("NEUEVORGANGSAKT")                       '#i18n|435|5
            .Category = "Bearbeiten"                       '#i18n|436|5
            .name = "Neue Vorgangsaktivität"               '#i18n|437|5
            .ImageKey = "bmpVORGANG"                       '#i18n|438|5
        End With
        With .Add("OK")                                    '#i18n|441|5
            .Category = "Bearbeiten"                       '#i18n|442|5
            .name = "OK"                                   '#i18n|443|5
            .Shortcut = ssF11
            .ImageKey = "bmpOK"                            '#i18n|445|5
        End With
        With .Add("DUPLICATE")                             '#i18n|448|5
            .Category = "Bearbeiten"                       '#i18n|449|5
            .name = "Duplizieren"                          '#i18n|450|5
            .ImageKey = "bmpKOPIE"                         '#i18n|451|5
        End With
        With .Add("ESC")                                   '#i18n|454|5
            .Category = "Bearbeiten"                       '#i18n|455|5
            .name = "Abbrechen"                            '#i18n|456|5
            .ImageKey = "bmpESC"                           '#i18n|457|5
        End With
        With .Add("LOESCHEN")                              '#i18n|460|5
            .Category = "Bearbeiten"                       '#i18n|461|5
            .name = "Löschen"                              '#i18n|462|5
            .ImageKey = "bmpLOESCHEN"                      '#i18n|463|5
        End With
        With .Add("UBERGREIFENDSUCHEN")                    '#i18n|466|5
            .Category = "Bearbeiten"                       '#i18n|467|5
            .name = "Fensterübergreifende Suche"           '#i18n|468|5
            .ImageKey = "bmpUBERGREIFENDSUCHEN"            '#i18n|469|5
        End With
        With .Add("SPEZIALSUCHEN")                         '#i18n|472|5
            .Category = "Bearbeiten"                       '#i18n|473|5
            .name = "Spezialsuchen"                        '#i18n|474|5
            .ImageKey = "bmpSPEZIALSUCHEN"                 '#i18n|475|5
        End With
        With .Add("ANTWORTEN")                             '#i18n|478|5
            .Category = "Bearbeiten"                       '#i18n|479|5
            .name = "Intern antworten"                     '#i18n|480|5
            .ImageKey = "bmpANTWORTEN"                     '#i18n|481|5
        End With
        With .Add("WINWORD")                               '#i18n|484|5
            .Category = "Bearbeiten"                       '#i18n|485|5
            .name = "Word"                                 '#i18n|486|5
            .ImageKey = "bmpWINWORD"                       '#i18n|487|5
        End With
        With .Add("EXCEL")                                 '#i18n|490|5
            .Category = "Bearbeiten"                       '#i18n|491|5
            .name = "Excel"                                '#i18n|492|5
            .ImageKey = "bmpEXCEL"                         '#i18n|493|5
        End With
        With .Add("ZWISCHENABLAGE")                        '#i18n|496|5
            .Category = "Bearbeiten"                       '#i18n|497|5
            .name = "Kopieren"                             '#i18n|498|5
            .ImageKey = "bmpZWISCHENABLAGE"                '#i18n|499|5
        End With
        With .Add("QUICKMAIL")
            .Category = "Fenster"                          '#i18n|503|5
            .name = "QuickAktivität"                       '#i18n|504|5
            .ImageKey = "bmpQUICKMAIL"                     '#i18n|505|5
        End With
        With .Add("CLOSE")                                 '#i18n|508|5
            .Category = "Bearbeiten"                       '#i18n|509|5
            .name = "Schliessen"                           '#i18n|510|5
            .ImageKey = "bmpCLOSE"                         '#i18n|511|5
        End With
        With .Add("CLOSEALL")                              '#i18n|514|5
            .Category = "Bearbeiten"                       '#i18n|515|5
            .name = "Alle Fenster schliessen"              '#i18n|516|5
            .ImageKey = "bmpCLOSE"                         '#i18n|517|5
        End With
        With .Add("TELEFON")
            .Category = "Bearbeiten"                       '#i18n|521|5
            .name = "Telefonieren"                         '#i18n|522|5
            .ImageKey = "bmpTELEFON"                       '#i18n|523|5
        End With
        With .Add("LOESCHMARK")                            '#i18n|526|5
            .Category = "Bearbeiten"                       '#i18n|527|5
            .name = "Zum Löschen markieren"                '#i18n|528|5
            .ImageKey = "bmpKILLMARK"                      '#i18n|529|5
        End With
        With .Add("SPAMMARK")                            '#i18n|526|5
            .Category = "Mail"                       '#i18n|527|5
            .name = "Als Spam markieren"                '#i18n|528|5
            .ImageKey = "bmpSPAMMARK"                      '#i18n|529|5
        End With

        With .Add("FIRST")                                 '#i18n|532|5
            .Category = "Bearbeiten"                       '#i18n|533|5
            .name = "Anfang"                               '#i18n|534|5
            .ImageKey = "bmpFIRST"                         '#i18n|535|5
        End With
        With .Add("LEFT")                                  '#i18n|538|5
            .Category = "Bearbeiten"                       '#i18n|539|5
            .name = "Zurück"                               '#i18n|540|5
            .ImageKey = "bmpLEFT"                          '#i18n|541|5
        End With
        With .Add("RIGHT")                                 '#i18n|544|5
            .Category = "Bearbeiten"                       '#i18n|545|5
            .name = "Vor"                                  '#i18n|546|5
            .ImageKey = "bmpRIGHT"                         '#i18n|547|5
        End With
        With .Add("LAST")                                  '#i18n|550|5
            .Category = "Bearbeiten"                       '#i18n|551|5
            .name = "Ende"                                 '#i18n|552|5
            .ImageKey = "bmpLAST"                          '#i18n|553|5
        End With
        With .Add("B180")                                  '#i18n|556|5
            .Category = "Archiv"                           '#i18n|557|5
            .name = "180 Grad drehen"                      '#i18n|558|5
            .ImageKey = "bmpB180"                          '#i18n|559|5
        End With
        With .Add("B90")                                   '#i18n|562|5
            .Category = "Archiv"                           '#i18n|563|5
            .name = "90 Grad drehen"                       '#i18n|564|5
        End With
        With .Add("ARCHIVMIRROR")                          '#i18n|567|5
            .Category = "Archiv"                           '#i18n|568|5
            .name = "Spiegeln"                             '#i18n|569|5
        End With
        With .Add("BREITE")                                '#i18n|572|5
            .Category = "Archiv"                           '#i18n|573|5
            .name = "Breitenoptimiert"                     '#i18n|574|5
            .ImageKey = "bmpBREITE"                        '#i18n|575|5
        End With
        With .Add("NURQUICKSCAN")
            .Category = "Archiv"                           '#i18n|579|5
            .name = "QuickScan"                            '#i18n|580|5
            .ImageKey = "bmpQUICKSCANN"                    '#i18n|581|5
        End With
        With .Add("ARCHIVGRAY")                            '#i18n|584|5
            .Category = "Archiv"                           '#i18n|585|5
            .name = "Grauton"                              '#i18n|586|5
        End With
        With .Add("ARCHIVINVERT")                          '#i18n|589|5
            .Category = "Archiv"                           '#i18n|590|5
            .name = "Invertieren"                          '#i18n|591|5
        End With
        With .Add("ARCHIVCOLORRES")                        '#i18n|594|5
            .Category = "Archiv"                           '#i18n|595|5
            .name = "Auflösung"                            '#i18n|596|5
        End With
        With .Add("ARCHIVINFO")                            '#i18n|599|5
            .Category = "Archiv"                           '#i18n|600|5
            .name = "Bildinfo"                             '#i18n|601|5
        End With
        With .Add("HOEHE")                                 '#i18n|604|5
            .Category = "Archiv"                           '#i18n|605|5
            .name = "Höhenoptimiert"                       '#i18n|606|5
            .ImageKey = "bmpHOEHE"                         '#i18n|607|5
        End With
        With .Add("ARCHIVZOOM")                            '#i18n|610|5
            .Category = "Archiv"                           '#i18n|611|5
            .name = "Zoom"                                 '#i18n|612|5
            .ComboBoxList = "ganze Seite|Seitenbreite|12%|25%|35%|50%|75%|100%|200%|400%|800%"    '#i18n|613|5
            .typ = ssTypeComboBox
        End With
        With .Add("ANSICHTAKTVIEW")                        '#i18n|617|5
            .Category = "Ansicht"                          '#i18n|618|5
            .name = "Aktivitätenansicht"                   '#i18n|619|5
            .ComboBoxList = "Alle|Classic,Sonstiges|Anhaenge|Mail|Termin|Nachweis|Dokument|Nachricht|Notiz"    '#i18n|620|5
            .ComboBoxStyle = ssComboDropDownList
            .typ = ssTypeComboBox
        End With
        With .Add("LISTDEFINITION")                        '#i18n|625|5
            .Category = "Ansicht"                          '#i18n|626|5
            .name = "Listendefinitionen"                   '#i18n|627|5
            ' Momentan nur Objektefenster irgendwie Probleme wenn das nach dem add noch geändert wird?
            'GetProfileFolder ist zu diesem Zeitpunkt n.n. vollstänfig geinit.
            .ComboBoxList = ListDefinitionGetList(gBenutzer.GetProfileFolder & k(gBenutzer.rs("PROFILE")) & "\GUI.INI|" & pfad("flowfact.ini"), "F_OBJ")
            .ComboBoxStyle = ssComboDropDownList
            .typ = ssTypeComboBox
            .Enabled = False
        End With
        With .Add("CONTENTLANGUAGE")                       '#i18n|625|5
            .Category = "Ansicht"                          '#i18n|626|5
            .name = "Content language"                     '#i18n|627|5
            ' Momentan nur Objektefenster irgendwie Probleme wenn das nach dem add noch geändert wird?
            'GetProfileFolder ist zu diesem Zeitpunkt n.n. vollstänfig geinit.
            Dim strIds As String, idx As Long
            strIds = g_Util.IniGet("OPTIONS", "CONTENTLANGUAGES", "1031", pfad("SQL\SQL.INI"))
            g_LangPack.ContentLanguages = replace(strIds, ",", "|")
            g_LangPack.DefaultLCID = g_Util.StrListNr(strIds, ",", 1)
            g_LangPack.ContentLCID = g_LangPack.DefaultLCID
            Dim oLG As New CSystemLanguage
            For idx = 1 To g_Util.StrListCount(strIds, ",")
                oLG.lcid = Val(g_Util.StrListNr(strIds, ",", idx))
                strlist = strlist & oLG.Caption & "|"
            Next
            g_Util.CutRight strlist, "|"
            .ComboBoxList = strlist
            '.text = "<Standard>"
            .ComboBoxStyle = ssComboDropDownList
            .typ = ssTypeComboBox
            .Enabled = True
        End With
        
        With .Add("ANSICHTAKTVIEWALLE")                    '#i18n|636|5
            .Category = "Ansicht"                          '#i18n|637|5
            .name = "Alle Views anzeigen"                  '#i18n|638|5
            .ImageKey = "bmpAUGE"                          '#i18n|639|5
        End With
        With .Add("INTERNETADDRESS")                       '#i18n|642|5
            .Category = "Ansicht"                          '#i18n|643|5
            .name = "Adresse"                              '#i18n|644|5
            .typ = ssTypeEdit
        End With
        With .Add("HISTORIEBACK")                          '#i18n|648|5
            .Category = "Historie"                         '#i18n|649|5
            .name = "Zurück"                               '#i18n|650|5
            .typ = ssTypeDropDown
            .ImageKey = "bmpHISTORIEZURUECK"               '#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
        End With
        With .Add("ALARMSTARTEN")                          '#i18n|661|5
            .Category = "Sonstiges"                        '#i18n|662|5
            .name = "Alarm starten"                        '#i18n|663|5
            .ImageKey = "bmpALARM"                         '#i18n|664|5
        End With
        With .Add("STD")
            .Category = "Administration"                   '#i18n|668|5
            .name = "Grundeinstellungen"                   '#i18n|669|5
            .ImageKey = "bmpSTD"                           '#i18n|670|5
        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
        End With
        With .Add("MKM")
            .Category = "Administration"                   '#i18n|680|5
            .name = "Merkmale"                             '#i18n|681|5
            .ImageKey = "bmpMERKMALE"                      '#i18n|682|5
        End With
        With .Add("BEN")
            .Category = "Administration"                   '#i18n|686|5
            .name = "Benutzer"                             '#i18n|687|5
            .ImageKey = "bmpUSER"                          '#i18n|688|5
        End With
        With .Add("ZUG")                                   '#i18n|691|5
            .Category = "Administration"                   '#i18n|692|5
            .name = "Benutzergruppen"                      '#i18n|693|5
            .ImageKey = "bmpGROUP"                         '#i18n|694|5
        End With
        With .Add("ACCOUNTS")                              '#i18n|697|5
            .Category = "Administration"                   '#i18n|698|5
            .name = "Konten"                               '#i18n|699|5
            .ImageKey = "bmpKONTEN"                        '#i18n|700|5
        End With
        With .Add("FLDART")                                '#i18n|703|5
            .Category = "Administration"                   '#i18n|704|5
            .name = "Feldarten"                            '#i18n|705|5
            .ImageKey = "bmpFELDARTEN"                     '#i18n|706|5
        End With
        With .Add("AKTARTEN")                              '#i18n|709|5
            .Category = "Administration"                   '#i18n|710|5
            .name = "Aktivitätenarten"                     '#i18n|711|5
            .ImageKey = "bmpAKTARTEN"                      '#i18n|712|5
        End With
        With .Add("EMSK")
            .Category = "Administration"                   '#i18n|716|5
            .name = "Eingabehilfen"                        '#i18n|717|5
            .ImageKey = "bmpEMSK"                          '#i18n|718|5
        End With
        With .Add("DEV")                                   '#i18n|721|5
            .Category = "Administration"                   '#i18n|722|5
            .name = "Währungen und Kurse"                  '#i18n|723|5
            .ImageKey = "bmpKURSE"                         '#i18n|724|5
        End With
        '    With .Add("FIRMA")
        '        .Category = "Administration"
        '        .name = "Firmen"
        '    End With
        With .Add("REGIS")                                 '#i18n|732|5
            .Category = "Administration"                   '#i18n|733|5
            .name = "Registrierung"                        '#i18n|734|5
            .ImageKey = "bmpREGISTRIERUNG"                 '#i18n|735|5
        End With
        With .Add("PPVORWAHL")                             '#i18n|738|5
            .Category = "PostPerfect"                      '#i18n|739|5
            .name = "Vorwahl lernen"                       '#i18n|740|5
            .ImageKey = "bmpPOSTPERFECT"                   '#i18n|741|5
        End With
        With .Add("ABOUT")                                 '#i18n|744|5
            .Category = "Hilfe"                            '#i18n|745|5
            .name = "Info"                                 '#i18n|746|5
        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
        End With
        With .Add("HELPINDEX")
            .Category = "Hilfe"                            '#i18n|756|5
            .name = "FlowFact Online-Hilfe"                '#i18n|757|5
            .ImageKey = "bmpHILFE"                         '#i18n|758|5
        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
        End With
        With .Add("FCMDUSEARCHIV")                         '#i18n|767|5
            .Category = "Ansicht"                          '#i18n|768|5
            .typ = ssTypeStateButton
            .name = "Archiv einbeziehen"                   '#i18n|770|5
        End With
        With .Add("SHOWNAVIGATOR")                         '#i18n|773|5
            .Category = "Ansicht"                          '#i18n|774|5
            .typ = ssTypeStateButton
            .name = "Navigator"                            '#i18n|776|5
            .ImageKey = "bmpNAVIGATOR"                     '#i18n|777|5
        End With
        With .Add("SHOWHEADER")                            '#i18n|780|5
            .Category = "Ansicht"                          '#i18n|781|5
            .typ = ssTypeStateButton
            .name = "Kopfzeile"                            '#i18n|783|5
        End With
        With .Add("SHOWSTATUSBAR")                         '#i18n|786|5
            .Category = "Ansicht"                          '#i18n|787|5
            .typ = ssTypeStateButton
            .name = "Statusleiste"                         '#i18n|789|5
        End With
        '*ckr verschiedene hilfe commands herausgenommen
        With .Add("AKTUNERLEDIGT")                         '#i18n|794|5
            .Category = "Ansicht"                          '#i18n|795|5
            .typ = ssTypeStateButton
            .name = "Nur unerledigte Aktivitäten"          '#i18n|797|5
        End With
        With .Add("TOP100")                                '#i18n|800|5
            .Category = "Ansicht"                          '#i18n|801|5
            .typ = ssTypeStateButton
            .name = "Ersten 100 Aktivitäten anzeigen"      '#i18n|803|5
        End With

        With .Add("REFRESHVORLAGE")
            .Category = "Ansicht"
            .typ = ssTypeStateButton
            .name = "Wiedervorlage aktualisieren"
        End With

        With .Add("ALLUSER")                               '#i18n|806|5
            .Category = "Ansicht"                          '#i18n|807|5
            .typ = ssTypeStateButton
            .name = "Alle Benutzer"                        '#i18n|809|5
        End With
        
        With .Add("SEARCHINLIST")                               '#i18n|806|5
            .Category = "Ansicht"                          '#i18n|807|5
            .typ = ssTypeStateButton
            .name = "In Liste suchen"                        '#i18n|809|5
        End With
        With .Add("POSITIONLOCKED")                        '#i18n|812|5
            .Category = "Ansicht"                          '#i18n|813|5
            .typ = ssTypeStateButton
            .name = "Symbolleisten verriegeln"             '#i18n|815|5
        End With
        With .Add("AKTVERKNUEPFT")                         '#i18n|818|5
            .Category = "Ansicht"                          '#i18n|819|5
            .typ = ssTypeStateButton
            .name = "Anhänge anzeigen"                     '#i18n|821|5
        End With
        With .Add("HIRARCHIE")                             '#i18n|824|5
            .Category = "Ansicht"                          '#i18n|825|5
            .typ = ssTypeStateButton
            .name = "Hierarchieliste aktualisieren"        '#i18n|827|5
        End With
        With .Add("LINENUMBERS")                           '#i18n|830|5
            .Category = "Ansicht"                          '#i18n|831|5
            .typ = ssTypeStateButton
            .name = "Zeilennummerierung"                   '#i18n|833|5
        End With
        With .Add("GEWICHTUNGENOBJ")                       '#i18n|836|5
            .Category = "Ansicht"                          '#i18n|837|5
            .typ = ssTypeStateButton
            .name = "Objektgewichtungen"                   '#i18n|839|5
        End With
        '    Gibt es nicht mehr - Datum?
        '    With .Add("PPASK")
        '        .Category = "PostPerfect"
        '        .typ = ssTypeStateButton
        '        .name = "Zurückfragen"
        '        .ImageKey = "bmpPOSTPERFECT"
        '    End With
        With .Add("PPADD")                                 '#i18n|850|5
            .Category = "PostPerfect"                      '#i18n|851|5
            .typ = ssTypeStateButton
            .name = "Ergänzen"                             '#i18n|853|5
        End With
        With .Add("ARCHIVFILEOPEN")                        '#i18n|856|5
            .Category = "Archiv"                           '#i18n|857|5
            .name = "Öffnen"                               '#i18n|858|5
        End With
        With .Add("ARCHIVSAVEAS")                          '#i18n|861|5
            .Category = "Archiv"                           '#i18n|862|5
            .name = "Speichern unter"                      '#i18n|863|5
        End With
        With .Add("ARCHIVSELECTSOURCE")                    '#i18n|866|5
            .Category = "Archiv"                           '#i18n|867|5
            .name = "Quelle auswählen"                     '#i18n|868|5
        End With
        With .Add("ARCHIVGETPICTURE")                      '#i18n|871|5
            .Category = "Archiv"                           '#i18n|872|5
            .name = "Bild holen"                           '#i18n|873|5
        End With
        With .Add("ARCHIVPRINT")                           '#i18n|876|5
            .Category = "Archiv"                           '#i18n|877|5
            .name = "Drucken"                              '#i18n|878|5
            .ImageKey = "bmpPRINT"                         '#i18n|879|5
        End With
        With .Add("ARCHIVSCANOPTIONS")                     '#i18n|882|5
            .Category = "Archiv"                           '#i18n|883|5
            .name = "Voreinstellungen"                     '#i18n|884|5
        End With
        With .Add("ARCHIVPASTE")                           '#i18n|887|5
            .Category = "Archiv"                           '#i18n|888|5
            .name = "Einfügen"                             '#i18n|889|5
        End With
        With .Add("ARCHIVNEWPASTE")                        '#i18n|892|5
            .Category = "Archiv"                           '#i18n|893|5
            .name = "Neu und einfügen"                     '#i18n|894|5
        End With
        With .Add("ARCHIVSCAN")                            '#i18n|896|5
            .Category = "Archiv"                           '#i18n|897|5
            .name = "Scannen"                              '#i18n|898|5
            .ImageKey = "bmpSCANNEN"                       '#i18n|899|5
        End With
        With .Add("MNUCOOP")                               '#i18n|902|5
            .Category = "Menüs"                            '#i18n|903|5
            .name = "FriendListing"                        '#i18n|904|5
            .typ = ssTypeMenu
        End With
        With .Add("COOPERATION_PARTNER")                   '#i18n|908|5
            .Category = "FriendListing"                    '#i18n|909|5
            .name = "Partner"                              '#i18n|910|5
            .ImageKey = "bmpAD"                            '#i18n|911|5
        End With
        With .Add("COOPERATION_OBJ")
            .Category = "FriendListing"                    '#i18n|915|5
            .name = "Objekte"                              '#i18n|916|5
            .ImageKey = "bmpOBJEKTEONLINE"                 '#i18n|917|5
        End With
        
        With .Add("SETUPKEYBOARDKEYS")
            .Category = "Sonstiges"
            .name = "Tastaturbelegung"
            .ImageKey = "bmpSETUPKEYS"
            #If G_MAINAPPLICATION = 1 Then
                .Enabled = g_ShortCuts.Enabled
            #End If
        End With

        With .Add("MNUADDIN")
            .Category = "Menüs"
            .name = "AddIn"
            .typ = ssTypeMenu
        End With
        With .Add("ADDIN_CONFIG")
            .Category = "AddIn"
            .name = "AddIn Konfigurator"
            .ImageKey = "bmpADDINCONFIG"
        End With
        With .Add("PORTAL_CONFIG")
            .Category = "AddIn"
            .name = "Portalseiten Konfigurator"
            .ImageKey = "bmpPORTALCONFIG"
        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
            End With
    
            With .Add("IMVCHECK")
                .Category = "IMV"
                .name = "IMV-Check"
                .ImageKey = "bmpSUCHEN"
            End With
    
            With .Add("IMVLASTUPDATE")
                .Category = "IMV"
                .name = "IMV-LastUpdate"
                .ImageKey = "bmpSUCHEN"
            End With
                          
            With .Add("IMVMONITORING")
                .Category = "IMV"
                .name = "IMV-Monitoring"
                .ImageKey = "bmpIMV"
            End With
    
            With .Add("IMVCONFIG")
                .Category = "IMV"
                .name = "IMV-Konfiguration"
                .ImageKey = "bmpIMV"
            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"
            End With
        End If
        With .Add("MNUADIMPORT")
            .Category = "Menüs"
            .name = "Kontakte importieren"
            .ImageKey = "bmpAIAPP"
            .typ = ssTypeMenu
        End With
        With .Add("ADIMPORT_KLICKTEL")
            .Category = "Sonstiges"
            .name = "KlickTel"
            .ImageKey = "bmpAIKLICKTEL"
        End With
        
        
        
'        With .Add("MY_FOLDERS")
'            .Category = "Sonstiges"
'            .name = "Meine Ordner"
'            .ImageKey = "bmpFOLDEROPEN"
'            If Not b(g_Util.IniGet("OPTIONS", "FOLDERS", 0, pfad("flowfact.ini"))) Then
'                .setFeatureAvailable FFUNLOCK, False
'            End If
'        End With
        
        
        
        
        'If Application.is2007 = True Then
            With .Add("ADIMPORT_TWIXTEL")
                .Category = "Sonstiges"
                .name = "TwixTel"
                .ImageKey = "bmpAITWIXTEL"
            End With
        'End If
        With .Add("ADIMPORT_KONTAKTE")
            .Category = "Sonstiges"
            .name = "Kontakte/Anfragen automatisch anlegen"
            .ImageKey = "bmpAIKONTAKTE"
        End With
        'If Application.is2007 = True Then
            With .Add("ADIMPORT_CLIPBOARD")
                .Category = "Sonstiges"
                .name = "Kontakt aus Zwischenablage anlegen"
                .ImageKey = "bmpAICLIPBOARD"
            End With
        'End If

'        If Application.is2007 = True Then
'            With .Add("GLOBALCHANGING")
'                .Category = "Sonstiges"
'                .name = "Global ändern"
'                .ImageKey = "bmpVERTRAEGE"
'            End With
'        End If
'        If Application.is2007 = True Then
'            With .Add("GLOBALSEARCH")
'                .Category = "Bearbeiten"
'                .name = "Globale Suche"
'                .ImageKey = "bmpGLOBALSEARCH"
'                .Shortcut = ssF8
'            End With
'        End If

        'If Application.is2007 = True Then
            With .Add("BIREPORTS")
                .Category = "Business Intelligence"
                .name = "Business-Reports"
                .ImageKey = "bmpBIREPORTS"
            End With
        'End If
        With .Add("BIMANAGEMENTCOCKPIT")
            .Category = "Business Intelligence"
            .name = "Management-Cockpit"
            .ImageKey = "bmpBIMANAGEMENTCOCKPIT"
        End With
    
        With m_oCommands.Add("MENU2007")
            .Category = "Menüs"
            .name = "Neu in FlowFact2007"
            .typ = ssTypeMenu
            .ImageKey = "bmpFOLDERCLOSE"
        End With
        With .Add("HELPNEW2007")
            .Category = "Hilfe"
            .name = "Übersicht Neuheiten in FlowFact2007"
            .ImageKey = "bmpHILFE"
        End With
        With .Add("ONOFFNEW2007")
            .Category = "Hilfe"
            .name = "Neuheiten in Navigator einblenden Ein/Aus"
            .ImageKey = "bmpCLOSE"
        End With

        ' Nicht GetProfileFolder verwenden da profile zu diesem Zeitpunkt noch nicht initalisiert ist
        Set m_oApplication = New FlowFact.Application
        ResetScriptingEngine
        .fill
        If InStr(g_LangPack.ContentLanguages, CStr(g_LangPack.lcid)) > 0 Then
            ' Falls die Oberflächensprache auch als Contentsprache existiert, dann diese aktvieren
            g_LangPack.ContentLCID = g_LangPack.lcid
            oLG.lcid = g_LangPack.lcid
        End If
    End With
End Sub