Private Sub LABEL_LADEN()
Dim i As Integer
For i = 0 To List1.ListCount - 1
   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
   lblX(MaxBtn).BackColor = List1.List(i)
Next i
Call SetScrollBar
End Sub
 
Private Sub SetScrollBar()
    InnerPict.Height = lblX(MaxBtn).Top + lblX(MaxBtn).Height + 120
 
    If InnerPict.Height <= OuterPict.ScaleHeight Then
        InnerPict.Move 0, 0
        VBar.Visible = False
    Else
        VBar.Min = 0
        VBar.Max = OuterPict.ScaleHeight - InnerPict.Height
        VBar.LargeChange = OuterPict.ScaleHeight
        VBar.SmallChange = OuterPict.ScaleHeight / 5
        VBar.Visible = True
    End If
End Sub