'Diese Prozedur führt die Umbenennung sämtlicher Bezeichnungen aus
    Public Sub performlanguage(ByVal formodercontrol As Control, ByVal formname _
      As String)
        getlanguage("Deutsch") 'der aufruf die Daten zu holen, der globale 
        ' Sprachen Parameter muss hier rein
 
        Dim i As Integer = 0
        Dim cntr As Control
        Dim ts As New DataGridTableStyle(False)
        Dim gcs As DataGridColumnStyle
        Dim cm() As ContextMenu
        Dim item(), EDitem As MyMenuitem    'aus der MyMenuitem-Klasse
        Dim mainmenu_name As New MainMenu
        Dim mm_item As MenuItem
        Dim m, mu As Integer
 
        If TypeOf formodercontrol Is Form Then
            org_form = formname
            'an dieser Stelle wird geprüft ob das element eine Form ist um Ihre 
            ' Caption zu ändern
            'der Name wird an eine Public Variable übergeben, damit wir uns 
            ' beim Starten des Editors
            'auf den Namen der Form beziehen können
 
 
            'das erste mal wird ein Filter gesetzt der den Formname ermitteln 
            ' soll
            sprachen.DefaultView.RowFilter = "erscheinungsort='" & formname & _
              "' and textfeldname='" & formname & "'"
            If sprachen.DefaultView.Count > 0 Then 'wenn ein eintrag 
            ' vorhanden ist dann erfolgt die Umbenennung
                CType(formodercontrol, Form).Text = sprachen.DefaultView.Item( _
                  0).Item("Deutsch")
            End If
 
            'wenn ein mainmenu in der Form hinterlegt wurde dann werden hier 
            ' die Bezeichnungen nach dem Inxex System geändert
            If Not CType(formodercontrol, Form).Menu Is Nothing Then
                mainmenu_name = CType(formodercontrol, Form).Menu.GetMainMenu
                For m = 0 To mainmenu_name.MenuItems.Count - 1 'für jedes 
                ' horizontale Element
 
                    If mainmenu_name.MenuItems.Item(m).IsParent = True Then
                        For mu = 0 To mainmenu_name.MenuItems.Item( _
                          m).MenuItems.Count - 1 'für jedes vertikale Element
 
                            sprachen.DefaultView.RowFilter = _
                              "erscheinungsort='" & formname & "' and" & _
                              "textfeldname='" & m.ToString & "-" & mu.ToString _
                              & "'" 'Das ist meine persönliche Konvention
                            If sprachen.DefaultView.Count > 0 Then
                                mainmenu_name.MenuItems.Item(m).MenuItems.Item( _
                                  mu).Text = sprachen.DefaultView.Item(0).Item( _
                                  "Deutsch")
                            End If
 
                        Next
                    End If
                    sprachen.DefaultView.RowFilter = "erscheinungsort='" & _
                      formname & "' and textfeldname='" & m.ToString & "'"
                    If sprachen.DefaultView.Count > 0 Then
                        mainmenu_name.MenuItems.Item(m).Text = _
                          sprachen.DefaultView.Item(0).Item("Deutsch")
                    End If
 
                Next
            End If '.Menu oder nicht Menu?
        End If  'is Form?
 
 
        'fügt den Eintrag Menü bearbeiten hinzu Alles weitere wird im LangEd 
        ' gehandled
        If sprachmodus Then
            EDitem = New MyMenuitem
            EDitem.Text = "Menü im Spracheditor öffnen"
            EDitem.Name = "mainmenu"
            AddHandler EDitem.Click, AddressOf StartLangEd
            mainmenu_name.MenuItems.Add(EDitem)
        End If