Dim tp As New TabPage
                With tp
                    ' .Name = "tp" & g.ToString
                    .Text = g.ToString
                    tbcArtikel.TabPages.Add(tp)
 
                    Dim dgv As New DataGridView
                    tp.Controls.Add(dgv)
                    With dgv
                        .Update()
                        '.Name = "dgv" & g.ToString
                        .Margin = New Padding(5)
                        '.Width = 570
                        .Height = Parent.Height
                        .AutoSize = True
                        .DataSource = _al.ArtikelNachGruppen(g.ToString)
                        .AutoResizeColumns( _
                          DataGridViewAutoSizeColumnsMode.AllCells)
                        .AutoResizeRows(DataGridViewAutoSizeRowsMode.AllCells)
                        With .Columns("Bezeichnung")
                            .ReadOnly = True
                            .DefaultCellStyle.BackColor = Color.LightYellow
                            .DefaultCellStyle.WrapMode = _
                              DataGridViewTriState.True
                            '   .Width = 500
                        End With
 
                        With .Columns("Preis")
                            '  .Width = 60
                            .DefaultCellStyle.Alignment = _
                              DataGridViewContentAlignment.MiddleRight
                            .DefaultCellStyle.Format = "c"
                        End With
                        .Columns("Artikelnummer").Visible = False
                        .Columns("Einheit").Visible = False
                        .Columns("berechnen").Visible = False
                        .Columns("MwSt").Visible = False
                        .Columns("Gruppe").Visible = False
                        .Refresh()
                    End With
                End With