For sp As Integer = 1 To anzahl_richter
            Dim inn As Integer = 2
 
            Dim l As Integer = (sp - 1) * 210 'xxxxxxxxxxxxxxxxxxxxxx
 
            Dim grp As 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)
 
            For c As Integer = 1 To anzahl_Lektionen + 1
 
                If c < 16 Then
                    h = 0 + (c * 25)
                ElseIf c = 16 Then
                    'l = l + 100         xxxxxxxxxxxxxxxxxxxxxxxx
                    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(sp) & " " & CStr(c), _
                            .Width = 30, _
                            .BackColor = Color.LightBlue, .Left = 5, .Top = h, _
                            .Tag = c})
                    tbo.Add(New TextBox With _
                             {.Parent = grp, .Width = 30, .Name = feldname, _
                             .BackColor = Color.Red, .Left = 40, .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
                End If
            Next c
        Next sp