'Benötigt werden: Timer1 und Timer2, jeweils Enabled = False und Interval = 10
 'Command1 -Command4,  Text1 und Text2, Progressbar1 und Slider1
 'und lblP(0)
 'In Text1 wird die gewünschte Anzahl Labels eingetragen und mit Klick au
 'Erstellen (Command3) gehts los
 'Mit Command1 und Command2 kann das Labelfeld hoch und runter gescrollt werden
 
 Dim a As Long
 
Private Sub Command3_Click()
With ProgressBar1
    .Min = 0
    .Max = Text1.Text
    .Value = 0
End With
 
 Dim i As Integer
  For i = 1 To Text1.Text
    Load lblP(i)
    With lblP(i)
      .Top = lblP(i - 1).Top + lblP(i - 1).Height + 105
      .Visible = True
      .Caption = i
    End With
        ProgressBar1.Value = i
  Next i
 
End Sub
 
Private Sub Command4_Click()
   For i = 1 To Text1.Text
        Unload lblP(i)
    Next i
End Sub
 
Private Sub Command2_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
Timer2.Enabled = True
End Sub
 
Private Sub Command2_MouseUp(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
Timer2.Enabled = False
End Sub
 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
Timer1.Enabled = True
End Sub
 
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
 Timer1.Enabled = False
End Sub
 
Private Sub Form_Load()
    a = 0
    With Slider1
        .Min = 1
        .Max = 20
        .Value = 5
    End With
End Sub
 
Private Sub Timer1_Timer()
    a = a + 20 * Slider1.Value
    lblP(0).Top = a
    For i = 1 To Text1.Text
        With lblP(i)
            .Top = lblP(i - 1).Top + lblP(i - 1).Height + 105
        End With
    Next i
        Text2.Text = a
End Sub
 
Private Sub Timer2_Timer()
    a = a - 20 * Slider1.Value
    lblP(0).Top = a
    For i = 1 To Text1.Text
        With lblP(i)
            .Top = lblP(i - 1).Top + lblP(i - 1).Height + 105
        End With
    Next i
       Text2.Text = a
End Sub