怎样实现托动的效果

[JeanLaw]

请问如何实现托动一个image的效果？
就比如如何开发一个滚动条？有哪位高手可以指点一、二吗？

[射天狼]

用一个PICTUREBOX控件做容器~~

[JeanLaw]

那拖动的语句呢？

[射天狼]

Option Explicit

Dim ll_Oldx As Long, ll_Oldy As Long
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ll_Oldx = X: ll_Oldy = Y
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then Image1.Move Image1.Left + X - ll_Oldx, Image1.Top + Y - ll_Oldy
End Sub

[JeanLaw]

谢谢了！