Question

vb用一个时间控件控制图片移动

有一个图片框和一个timer， 图片先由右下角向上移动 到达一定高度就向左移动，移动超出左边边界就回到右下角 循环移动
Private Sub Timer1_Timer()
Image1.Top = Image1.Top - 10
If Image1.Top < 1000 Then
Image1.Left = Image1.Left - 10
End If
If Image1.Left = 0 Then
Image1.Left = 9000
Image1.Top = 5040
End If
End Sub
这样就是在向上飞行一段后就向左上飞行不是向左飞行

哎 没人回答 自己想出来了
看谁先回答就给分了

Answer 1

Private Sub Timer1_Timer()
Image1.Top = Image1.Top - 10
Image1.Left = Image1.Left - 10
If Image1.Top = 1000 & Image1.Left = 0 Then
If Image1.Top = 5040 & Image1.Left = 9000 Then end
Image1.Top = Image1.Top + 10
Image1.Left = Image1.Left + 10
End If

End Sub

Answer 2

你这个肯定是左上角了，因为既修改了top又修改了left