Question

vb6，加了滚动条控制图片框的移动，但只有滚动条可以控制图片框，如何让图片框的移动反应在滚动条上？

求助各位高手呀，我用了鼠标滚轮来移动图片框，怎么让滚动条一起移动？

Answer 1

简单举例如下，蚂缓自己举备坦一反三。仿物桐
Private Sub Form_Load()
Timer1.Interval = 100
HScroll1.Max = 10000
HScroll1.Min = 0
End Sub
Private Sub Timer1_Timer()
Picture1.Left = Picture1.Left + 50
If Picture1.Left > 10000 Then Timer1.Enabled = False: Exit Sub
HScroll1.Value = Picture1.Left
End Sub