Private Sub ASHScroll1_Change()
Dim a As Integer
Dim l As Integer
Dim x As Double
x = ASHScroll1.Value
a = (Picture2.Width - Picture1.Width)
l = (a * x) / 100
Picture2.Left = -l
End Sub
'-----------------------------
'Above is a Sample Code
'Picture1  is the container for Picture2
'Picture is loaded in Picture2
'Adjust the value of divisor (100 in this example)
'as per the size of picture1
'-------------------------------
