by Bj?rn ?kesson (4 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 30th March 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Move a picture or anything else in 8 different directions
Private Sub Form_Load()
Timer1.Interval = 22
End Sub
'---------------------------------
Private Sub Timer1_Timer()
'Move Image1 Left
Image1.Left = Image1.Left + 50
'Move Image1 Right
Image1.Left = Image1.Left - 50
'Move Image1 Up
Image1.Top = Image1.Top - 50
'Move Image1 Down
Image1.Top = Image1.Top + 50
'Move Image1 leftUp then mix Left Up for example
End Sub