Private Sub cmdStop_Click()
  List2.AddItem Now
 
  ' Zeit-Differenz: Immer nur volle 30 Minuten!
  Dim vDif As Variant
  Dim nHour As Long
  Dim nMin As Long
 
  vDif = Now - vStart
  nHour = Hour(vDif)
  nMin = Minute(vDif)
 
  ' wenn kleiner 30 Minuten, keine Minuten anzeigen
  If nMin < 30 Then nMin = 0
 
  ' ggf: wenn größer 30 Minuten, nur 30 Minuten anzeigen
  If nMin > 30 Then nMin = 30
 
  MsgBox Format$(nHour, "00") & ":" & Format$(nMin, "00")
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de