Private Sub Form_Load()
    Timer1.Enabled = True
    Label1.Caption = 0
End Sub
 
Private Sub Timer1_Timer()
    Dim i As Long
    Label1.Caption = Label1.Caption + 0.5 'Anzeige in Sekunden
 
    i = 0
    For i = 1 To 2000000
        i = i + 1
    Next i
End Sub