Option Explicit
 
Private Sub Form_Load()
  With VScroll1
    .Min = -1
    .Max = 1
    .Value = 0
  End With
End Sub
 
Private Sub VScroll1_Change()
  With VScroll1
    If .Tag <> "NoAction" Then
      If .Value < 0 Then
        ' Uhrzeit verringern
        txtTime = Format$(DateAdd("n", -1, _
          CDate("1.1.02 " & txtTime.Text)), "hh:nn:ss")
      Else
        ' Uhrzeit erhöhen
        txtTime = Format$(DateAdd("n", 1, _
          CDate("1.1.002 " & txtTime)), "hh:nn:ss")
      End If
      .Tag = "NoAction"
      .Value = 0
    End If
    .Tag = ""
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de