Controlli - Scorrimento Del Contenuto Di Una ListBox

ListBox # Private Sub Form_Resize()
CopiaModifica.Visible = False
List1.AddItem " "
List1.AddItem " Questo programma ha lo scopo di copiare i files modi- "
List1.AddItem " ficati da una certa data in su, e copiarli su un flop-"
List1.AddItem " py o dentro ad una directory. Siccome la giornata, "
List1.AddItem " passata davanti al computer, ti porta inevitabilmente "
List1.AddItem " a modificare una quantita' di files, alla fine della "
List1.AddItem " "
C = List1.ListCount
End Sub

Private Sub Timer1_Timer()
List1.SetFocus
SendKeys "{DOWN}"
Conta = Conta + 1
If Conta = C Then
Command1.SetFocus
List1.Refresh
List1.Selected(C - 1) = False
List1.Selected(0) = True
Conta = 0
Help.Cls
End If
DoEvents
End Sub