Public Class Form1 Dim x As Integer = 1, y As Integer = 1, speed As Integer = 1 '========================================= Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load MovemenT.Enabled = True End Sub Private Sub MovemenT_Tick(sender As Object, e As EventArgs) Handles MovemenT.Tick PictureBox1.Left -= speed Select Case x Case 1 PictureBox1.Image = My.Resources.Car2 x += 1 Case 2 PictureBox1.Image = My.Resources.Car3 x += 1 Case 3 PictureBox1.Image = My.Resources.Car4 x = 1 End Select End Sub End Class
y
x
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)