by Anonymous (267 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 28th August 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
movement of image according to timer
API Declarations
dim y as integer
'put another timer on form
'put a image on form
private sub timer1_timer()
x=x+50
image1.Move x,y
if x=2000 then
image1.visible=false
msgbox"the picture is gone"
end if
end sub
private sub timer2_timer()
form1.backcolor=RGB(rnd*213,rnd*245,rnd*222)
end sub