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
 
'Modifizierung:
  While iAlt > iNeu And iNeu > 0
    Unload Label1(iAlt)
    iAlt = iAlt - 1
  Wend
 
'vorher:
'  For i = iNeu To (iAlt - 1)
'    Unload Label1(i)
'  Next i
 
 
Else
 
  For i = iAlt To (iNeu - 1)
    Load Label1(i)
    Label1(i).Visible = True
    Label1(i).Caption = "Label1(" & i & ")"
    Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width + 50
  Next i
 
End If
iAlt = iNeu
End Sub