vb 中如何实现图像的平移

Private Sub Command1_Click()

Static i As Long

Picture1.Cls

Picture1.Circle (i * 10, 0), 30, vbRed

i = i + 1

End Sub

Private Sub Form_Load()

Picture1.Scale (-50, -50)-(50, 50)

End Sub

将图像放在图搭好缺像框内，更改图像框的left属性的值就行袜乱了。

Private Sub Command1_Click()

Image1.Left = Image1.Left + 200 '向右知辩移动

End Sub

Private Sub Command2_Click()

Image1.Left = Image1.Left - 200 '向左移动

End Sub

---