Option Explicit
Dim iAlt As Integer, iNeu As Integer, i As Integer
 
Private Sub Form_Load()
iAlt = 1
Combo1.ListIndex = 0
End Sub
 
Private Sub Combo1_Click()
iNeu = Combo1.Text
 
If iAlt > iNeu Then
 
  For i = iNeu To (iAlt - 1)
    Unload Label1(i)            '--> Laufzeitfehler 365
  Next i
 
Else
 
  For i = iAlt To (iNeu - 1)
    Load Label1(i)
    Label1(i).Visible = True
    Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width + 50
  Next i
 
End If
iAlt = iNeu
End Sub