ник: Explorer
набросал примерчик на коленке
==>>
катаешь мышью по тачпаду внизу (с зажатой левой кнопкой) прокручивается время на дисплее посередине вперед-назад , отпускаешь - перестанавливаются часы в текст-боксе вверху...
на событие OnMouseMove
Private Sub lblTimePicker_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
datTimeStamp = DateAdd("s", intStrt - X, Me.txtNow)
Me.lblDisplay.Caption = Format(datTimeStamp, "hh:nn:ss")
End If
End Sub
|
DateAdd в секундах отлично подошло