comGastrodesk.CommandText = "SELECT Text FROM Abteilung ORDER BY Text"
        drGastrodesk = comGastrodesk.ExecuteReader
        While drGastrodesk.Read = True
            cbAbteilung.Items.Add(drGastrodesk("Text"))
            Dim mPanel As New Panel
            mPanel.Name = "pa" & drGastrodesk("Text")
            mPanel.Dock = DockStyle.Top
            mPanel.Height = 0
            mPanel.BorderStyle = BorderStyle.FixedSingle
            paBestellung.Controls.Add(mPanel)
            Dim mPanel2 As New Panel
            mPanel2.Dock = DockStyle.Top
            mPanel.Controls.Add(mPanel2)
            Dim mLabel As New Label
            mLabel.Text = drGastrodesk("Text")
            mLabel.Dock = DockStyle.Top
            mLabel.Top = 0
            mLabel.Left = 0
            mLabel.Font = New Font("Microsoft Sans Serif", 12, FontStyle.Bold)
            mLabel.ForeColor = Color.Maroon
            mLabel.TextAlign = ContentAlignment.MiddleCenter
            mPanel.Controls.Add(mLabel)
            mPanel2.Height = mLabel.Height
            mPanel.Height = mLabel.Height + 5
            Dim mSplitter As New Splitter
            mSplitter.Height = 2
            mSplitter.Dock = DockStyle.Top
            paBestellung.Controls.Add(mSplitter)
        End While
        drGastrodesk.Close()

Mehr Fragen als Wissen....und Spa? daran