Private Sub performlanguage(ByVal formodercontrol As Control)
        Dim cntr As Control
        Dim ds_lang As DataSet = CType(Me.MdiParent, frmMDIParent).DS_setting1
 
        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")
                If cntr.GetType.ToString = "System.Windows.Forms.Panel" Then
                    MsgBox("rekursiv")
                    performlanguage(cntr)
                End If
            End If
            TextBox1.Text = TextBox1.Text & vbCrLf & cntr.Name & " - " & _
              cntr.GetType.ToString
        Next
    End Sub

 If cntr.GetType.ToString = "System.Windows.Forms.Panel" Then