Private Sub FillPlan1()
        Dim lrows As Integer = 10
        Dim lcols As Integer = 5
        Dim ph As Integer = Me.Plan1.Height
        Dim pw As Integer = Me.Plan1.Width
        Dim lh As Integer = ph / lrows
        Dim lw As Integer = pw / lcols
        Dim Labels(lrows * lcols - 1) As SuperLabel 'Label
        'Labels erstellen:
        For i As Integer = 0 To lrows - 1
            For j As Integer = 0 To lcols - 1
                Dim L As Integer = i * lcols + j
                Labels(L) = New SuperLabel  'Label
                Labels(L).BackColor = System.Drawing.Color.White
                Labels(L).BorderStyle = _
                  System.Windows.Forms.BorderStyle.FixedSingle
                Labels(L).Location = New System.Drawing.Point(j * lw, i * lh)
                Labels(L).Name = "L" & L.ToString()
                Labels(L).Size = New System.Drawing.Size(lw, lh)
                Labels(L).TabIndex = L
                Labels(L).Enabled = True
                Labels(L).TextAlign = ContentAlignment.MiddleCenter
                'Labels(L).Text = Labels(L).Name
            Next
        Next
        Me.Plan1.Controls.AddRange(Labels)
 
    End Sub