Me.DataGridTextBoxColumn1.HeaderText = "Spalte1"
        Me.DataGrid1.Refresh()

For Each cntr In formodercontrol.Controls
            ds_lang.Tables("sprachen").DefaultView.RowFilter = _
              "erscheinungsort='" & 
Me.Name & "' and textfeldname='" & cntr.Name & "'"
            If ds_lang.Tables("sprachen").DefaultView.Count > 0 Then
                cntr.Text = ds_lang.Tables("sprachen").DefaultView.Item(0).Item( _
                  "Deutsch")
            End If
 
            If TypeOf cntr Is Panel Or TypeOf cntr Is GroupBox Or TypeOf cntr _
              Is TabControl
 Then
 
                performlanguage(cntr)
            End If
 
            TextBox1.Text = TextBox1.Text & vbCrLf & cntr.Name & " - " & _
              cntr.GetType.ToString
        Next