实现能动的图形

Private Sub Form_Load()

Timer1.Interval = 70

End Sub

Private Sub Timer1_Timer()

Timer1.Enabled = False

If Picture1.Left + Picture1.Width < 0  

Then                  

Picture1.Left = Me.Width

DoEvents

Else

Picture1.Left = Picture1.Left - 100

DoEvents

End If

Timer1.Enabled = True

End Sub