Тоесть есть картинка,она двигается,но мне надо сделать так,чтоб когда она дошла до конца,двигалась снова(те как-бы бесконечный рисунок)

Private Sub Form_Load()
a = 0
Timer1.Interval = 10
Picture1.Width = Picture2.Width
End Sub
Private Sub Timer1_Timer()
StX = 15: StY = 250: LLen = Picture1.Width
a = a + 15
If a >= LLen Then a = 0
Picture1.Left = StX - a
Picture2.Left = StX - a + LLen
Picture1.Top = StY
Picture2.Top = StY
End Sub
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8