Dim grp as groupbox
 
    Private Sub Wertnote_Detail_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Me.WindowState = FormWindowState.Maximized
 
        Me.Size = New Size(800, 600)
 
 
        dadre_1.Fill(dtdre_1)
        bs.DataSource = dtdre_1
 
        dasd.Fill(dtsd)
        bssd.DataSource = dtsd
 
        Me.sdlfnr.Text = sdlfnrwert
        Me.Kopfnr.Text = kopfnrwert
        Me.Pfnam.Text = pferdwert
        Me.Reiter.Text = reiterwert
 
        l = 0
        t = 0
 
 
 
        'anzahl richter und anzahl lektionen sind globale Variablen stehen in 
        ' SQL Holen
        For sp As Integer = 1 To anzahl_richter
            Dim inn As Integer = 2
 
            grp = New GroupBox
            grp.Parent = Me
            grp.Text = Str(sp)
            grp.Name = Str(sp)
            grp.Location = New Point(l, 50)
            grp.Size = New Size(200, 500)
            Me.Controls.Add(grp)
 
 
 
 
            For c As Integer = 1 To anzahl_Lektionen + 1
 
                If c < 16 Then
                    h = 0 + (c * 25)
                ElseIf c = 16 Then
                    l = l + 100
                    h = 0 + ((c - 15) * 25)
                Else
                    h = 0 + ((c - 15) * 25)
                End If
 
                feldname = "dre" + CStr(sp) + "_" + CStr(c)
 
                If c <= anzahl_Lektionen Then
                    t = t + 1
                    lbo.Add(New Label With _
                            {.Parent = grp, .Text = CStr(c), .Width = 30, _
                            .BackColor = Color.LightBlue, .Left = l, .Top = h, _
                            .Tag = c})
                    tbo.Add(New TextBox With _
                             {.Parent = grp, .Width = 30, .Name = feldname, _
                             .BackColor = Color.Red, .Left = (l + 35), .Top = _
                             h, .Tag = t})
 
                    With tbo(tbo.Count - 1)
                        .DataBindings.Add _
                            (New Binding("text", bs, feldname))
                        If .Text <> "" Then .BackColor = Color.GreenYellow
                        AddHandler .KeyUp, AddressOf tbo_keyup
                    End With
                Else
....