Public Sub addControls(ByVal dt As DataTable, ByVal C As _
          System.Windows.Forms.Control)
            Try
                For Each cc As System.Windows.Forms.Control In C.Controls
                    If Not TypeOf cc Is System.Windows.Forms.PropertyGrid Then
 
                        If InStr(cc.Name, "Ampel") Then
                            Dim frm As New System.Windows.Forms.Form
                            frm.Text = "Test 2"
                            Dim pg As New System.Windows.Forms.PropertyGrid
                            pg.SelectedObject = cc
                            pg.Dock = Windows.Forms.DockStyle.Fill
                            frm.Controls.Add(pg)
                            frm.ShowDialog()
 
                            MsgBox(cc.Name)
                        End If
 
                        Dim dr As DataRow
                        dr = dt.NewRow
                        dr.Item(0) = cc.Name
                        dr.Item(1) = cc.GetType.ToString
                        dt.Rows.Add(dr)
                        addControls(dt, cc)
 
                    End If
                Next
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub