'Der Durchlauf durch alle Controls startet hier
        For Each cntr In formodercontrol.Controls
            i = i + 1
            sprachen.DefaultView.RowFilter = "erscheinungsort='" & formname & _
              "' and textfeldname='" & cntr.Name & "'"
            If sprachen.DefaultView.Count > 0 Then
                cntr.Text = sprachen.DefaultView.Item(0).Item("Deutsch")
            End If
            If sprachmodus Then
                ReDim cm(i)         'Erweitern der Kontextmenüs mit Index
                ReDim item(i)       'Erweitern der Menuitems mit Index
                cm(i) = New ContextMenu
                item(i) = New MyMenuitem  'bezieht sich auf eigene Itemklasse
                item(i).Text = cntr.Text & " im Spracheditor bearbeiten..."
                item(i).Name = cntr.Name
                cm(i).MenuItems.Add(item(i))
                cntr.ContextMenu = cm(i)    'zuweisen des Kontextmenüs zum 
                ' Control
                AddHandler item(i).Click, AddressOf StartLangEd 'Beim Klick 
                ' aufs Item sollst du...
            End If
 
 
            'Wenn das Control vom Typ Panel,GroupBox oder TabControl ist dann 
            ' muss die Rekursion greifen,
            'da diese Elemente eigene Control-Collections haben (hoffe richtig 
            ' erklärt)
            If TypeOf cntr Is Panel Or TypeOf cntr Is GroupBox Or TypeOf cntr _
              Is TabControl Then
                performlanguage(cntr, formname) 'Rekursionsaufruf
            End If
 
 
            'Wenn das Control ein Datagrid ist dann müssen wir zum umbenennen 
            ' die Gridcolumnstyles ändern, da
            'diese aber kein Control in dem sinne sind, fällt die 
            ' Rekursionsmethode hier heraus
            If TypeOf cntr Is DataGrid Then
                For Each ts In CType(cntr, DataGrid).TableStyles
                    For Each gcs In ts.GridColumnStyles
                        'Hinweis: Ich nutze hier den MappingName weil auf die 
                        ' Name-Eigenschaft nicht zugegriffen werden kann
                        'daher muss auch in der DB dann der Mappingname stehen.
                        sprachen.DefaultView.RowFilter = "erscheinungsort='" & _
                          formname & "' and textfeldname='" & gcs.MappingName & _
                          "'"
                        If sprachen.DefaultView.Count > 0 Then
 
                            gcs.HeaderText = sprachen.DefaultView.Item(0).Item( _
                              "Deutsch")
                        End If
 
                    Next
                Next
                cntr.Refresh() 'Das Datagrid muss refreshed werden damit die 
                ' Änderungen sichtbar werden
            End If
        Next
 
 
 
    End Sub
 
    Public Sub StartLangEd(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        'Hier wird dann der LanguageEd aufgerufen, vorerst nur ne msgbox
        MessageBox.Show(sender.Name & " - " & org_form)
    End Sub
End Module