Private Sub Command1_Click()
Dim i As Integer
 
For i = 1 To List1.ListCount
Load Label1(i)
With Label1(i)
.Top = i * 600
.Left = 900
.Visible = True
.Caption = i & ". " & List1.List(i - 1)
.Width = 1500
 
End With
Next
End Sub
 
Private Sub Form_Load()
 
Label1(0).Visible = False
 
With List1
.AddItem "Hans"
.AddItem "Lisa"
.AddItem "Pia"
.AddItem "Nora"
.AddItem "Sina"
.AddItem "Keno"
.AddItem "Jupp"
.AddItem "Anna"
End With
End Sub