Option Explicit
 
Private Sub Positionieren()
  Dim I As Integer
  Dim Y As Integer
 
  Y = 100
  For I = 0 To Label1.Count - 1
    With Label1(I)
      .Caption = "Label: " & I + 1
      .Top = Y
      .Visible = True
      Y = Y + .Height
    End With
  Next I
End Sub
 
Private Sub ComboBox1_Click()
  Dim iIst As Integer
  Dim iSoll As Integer
  Dim I As Integer
 
  If ComboBox1.Tag = "Exit" Then Exit Sub
  iSoll = ComboBox1.ListIndex
  iIst = Label1.Count - 1
 
  'Label laden
  If iSoll > iIst Then
    For I = iIst + 1 To iSoll
      Load Label1(I)
    Next I
    Positionieren
 
  'Label entladen
  Else
    For I = iIst To iSoll + 1 Step -1
      Unload Label1(I)
    Next I
  End If
End Sub
 
Private Sub Form_Load()
  Dim I As Integer
 
  With ComboBox1
    For I = 1 To 14
      .AddItem I
    Next I
    .Tag = "Exit"
    .ListIndex = 0
    .Tag = ""
  End With
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.