Private Sub FillPlan()
        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
 
        For x As Integer = 1 To 4
            For Each c As Control In Me.Controls
                If c.Name = "Plan" & x Then
                    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
                            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
                    c.Controls.AddRange(Labels)
                End If
            Next
        Next
    End Sub