向右移动可以,向左移动怎么不行啊。
向右移动可以,我就把left改成right然后就不行了,求解。Private Sub timer1_timer()
If Label1.Right > Width + Right - 150 Then
Label1.Move Label1.Right + 150
Else
Label1.Right = Label1.Right - Width
End If
End Sub
Private Sub timer1_timer() If Label1.Left < 0 Then Label1.Move 150 Else Label1.Move -150 End If End Sub