Dim i As Integer
Private Sub Command1_Click()
i = 10
'Den Timer einstellen:
Timer1.Interval = 1000 'jede Sekunde soll die Timer-funktion arbeiten
Timer1.Enabled = True  'den Timer starten
 
End Sub
 
Private Sub Timer1_Timer()
 
i = i - 1 'Die Variable "i" immer um einen reduzieren
'COUNTDOWN
List1.AddItem i 'den Wert der Variable "i" in ein listenfeld übertragen
 
'Wenn "i" null erreicht hat, soll das listfeld "Fertig" anzeigen, und der
'Timer wird ausgeschaltet!
If i = 0 Then
    List1.AddItem "FERTIG!"
    ' ....                                         'Irgendetwas tun...
    Timer1.Enabled = False
End If
End Sub

'Arroganz ist die Kunst, auf seine eigene Dummheit stolz zu sein.'