Creare un Cronometro

Per realizzare un semplice Cronometro porremo sul form un Timer con ritardo posto ad "1", un Button ed un oggetto di testo nel quale visualizzare il tempo trasorso:

Private tempo As Date


Public Sub Button1_Click()

   With Timer1
     .delay = 1
     .Start
   End With

' Assegna l'orario di questo istante:
   tempo = Time

End


Public Sub Timer1_Timer()

   TextBox1.Text = Format(CDate(Time - tempo), "hh:nn:ss.uu")   |1|

End

Note

[1] Questo tipo di formattazione del tempo restituisce:

• hh = ora;
• nn = minuti;
• ss = secondi;
• uu = decimi, centesimi e millesimi di secondo.