Private Sub btnNEW_Click(sender As Object, e As EventArgs) Handles btnNEW.Click
picCar1.Location = New Point(picCar1.Location.X.Equals(0), picCar1.Location.Y.Equals(0))
picCar1.Top = picCar1.Top + 50
picCar1.Left = picCar1.Left + 60 btnNEW.Enabled = False
btnNEW.Visible = False
picCar1.Image = My.Resources.car1_Right
End Sub
No comments:
Post a Comment