Private TaTrackBar_PrevValue As Integer Private Sub TaTrackBar_Scroll(ByVal sender As Object, ByVal e As EventArgs) Handles TaTrackBar.Scroll If TaTrackBar_PrevValue > TaTrackBar.Value Then ' gauche... Else ' droite... End If TaTrackBar_PrevValue = TaTrackBar.Value End Sub