Option Explicit
Private vStart As Variant
 
Private Sub cmdStart_Click()
  ' Startzeit
  vStart = Now
  List1.AddItem vStart
End Sub
 
Private Sub cmdStop_Click()
  List2.AddItem Now
 
  ' Zeitdifferenz berechnen
  Dim vDif As Variant
  vDif = Now - vStart
 
  MsgBox Format$(vDif, "hh:nn:ss")  
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de