Option Explicit
Private MaxBtn As Integer
 
Private Sub LABEL_LADEN()
Dim I As Integer
    MaxBtn = MaxBtn + 1
    Load lblX(MaxBtn)
    lblX(MaxBtn).Move _
        lblX(MaxBtn - 1).Left, _
        lblX(MaxBtn - 1).Top + lblX(MaxBtn - 1).Height + 0
    lblX(MaxBtn).Container = _
        lblX(MaxBtn - 1).Container
    lblX(MaxBtn).Visible = True
For I = 0 To List1.ListCount - 1
    lblX(MaxBtn).BackColor = List1.List(I)
Next I
End Sub