[VB.NET] Estendere il tempo di un Timer

[eziogsv]

anche in timer:

PrivateSubTimerS1P1_Tick(sender AsSystem.Object, e AsSystem.EventArgs)HandlesTimerS1P1.Tick
        'ad ogni 1000 millisecondi, scala il numero della label di "1"
         LBTimerS1P1.Text = (Cint(LBTimerS1P1.Text) - 1).ToString

abituati a lavorare con Option Strict = True... non te ne fa passare nemmeno una, ma limiti le probabilità di errore.