Dim i As Double
Private Sub Command1_Click()
i = 2592000
'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
Label1.Caption = i
 
'Wenn "i" null erreicht hat, soll das listfeld "Fertig" anzeigen, und der
'Timer wird ausgeschaltet!
If i = 0 Then
    Label1.Caption = "FERTIG!"
    ' ....                                         'Irgendetwas tun...
    Timer1.Enabled = False
End If
End Sub