حرکت دادن تصویر در یک محدوده خاص

[user2535]

با سلام
برای حرکت یک تصویر در طول یک محدوده خاص توسط ماوس که از x1 شروع و به x2 خاتمه یابد
از چه کدی باید استفاده کرد
در مثال زیر پس از نگه داشتن دکمه ماوس بر روی تصویر می توان آن را حرکت داد
ولی در متوقف کردن حرکت در ابتدا و انتهای خط با مشکل مواجه شده ام

[PalizeSoftware]

دوست عزیز در همون فرم این کد رو جایگزین کن


Dim xTemp As Single

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
xTemp = X
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbLeftButton Then
X2 = Image1.Left + X - xTemp
If X2 > Line1.X1 And X2 < Line1.X2 - Image1.Width Then
Image1.Left = X2
End If
End If

End Sub