Le classi da utilizzare sono DateTime per la memorizzazione del tempo assoluto e TimeSpan per gestire la differenza di due tempi assoluti. Ecco un esempio:
codice:
Private inizio As DateTime
'evento iniziale
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
inizio = Now
End Sub
'evento finale
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim tempo As TimeSpan
tempo = Now.Subtract(inizio)
Console.WriteLine(tempo.TotalMilliseconds)
End Sub