Build A Car Class - Instanciate Many Objects Of Calss To Move More Than One Car

Two.JPG

I have build a Car class as follows:

Code:

Public Class Car Dim CarState As Integer Dim CarPicture As New PictureBox

Public Sub DriveIn() 'This sub to drive in the car to the lot. CarState = 1 Dim x As Integer For x = 1 To 45 If x <= 12 Then CarPicture.Top -= 3 Threading.Thread.Sleep(100)

[CODE]...

Then i tried to instanciate many objects of this calss to move more than one car as follows:Public Class Form1

Private Sub btnDrive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDrive.Click 'Dim objCar As New Car() Dim objCar As Car objCar = New Car objCar.DriveIn() End Sub

[CODE]...

But unfortunately no car moved.