Dim timestart As DateTime Dim timeend As DateTime Private Sub debut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles debut.Click timestart = DateTime.Now End Sub Private Sub fin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fin.Click Dim ts As TimeSpan timeend = DateTime.Now ts = timeend.Subtract(timestart) 'dans ts tu as toutes les données End Sub