Showing scrolling bars in UC

[joaquim]

heres 1 thing 100% strange

Private Sub ScrollingHorizontal_Change()
    Dim i As Long
    Dim value As Long
    For i = 0 To UserControl.Controls.Count - 1
        If UserControl.Controls(i).Name = "Timer1" Or UserControl.Controls(i).Name = "Picture1" Or UserControl.Controls(i).Name = "ScrollingHorizontal" Or UserControl.Controls(i).Name = "ScrollingVertical" Then
        Else
            If value > ScrollingHorizontal.value Then
                UserControl.Controls(i).Left = UserControl.Controls(i).Left + 1
            ElseIf value < ScrollingHorizontal.value Then
                UserControl.Controls(i).Left = UserControl.Controls(i).Left - 1
            ElseIf value = 0 Then
            End If
        End If
    Next i
    value = ScrollingHorizontal.value
End Sub

when i click in left scrolling horizontal button, the controls move to the right. but if click in right button the controls move to the left. but why the controls move to the same way(instead move to the left it move to the right)?