问如何用vb做简单活塞 运动

Option Explicit Private Sub Timer1_Timer() Static n As Integer If n = 1 Then a.Left = a.Left + 100 If a.Left > 2000 Then n = 0 Else a.Left = a.Left - 100 If a.Left < 0 Then n = 1 End If End Sub