codice:
Private Sub Timer1_Timer()
On Error GoTo OUT
Static i As Integer

    i = i + 1
    If i >= 5 Then 
        i = 1
        Call AggiornaStatusbar
        'Debug.Print Now
    End If
    
Exit Sub
OUT:
    Timer1.Interval = 0
End Sub