...
        '//Impostazioni del Timer
        Timer1.Interval = 1000
        Timer1.Start
        '//
        ...
        
'//Procedura che intercetta l'evento Timer1.Click

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        '// Controlla l'utilizzo delle CPU
        Dim v As Single = pref.NextValue
        utilizzo_cpu.Value = v
        cpu_util.text = string.format("Utilizzo CPU: {0:N2}%"),v)
 End Sub