movement of image according to timer
movement of image according to timer
API Declarations
dim y as integer
Rate movement of image according to timer
(2(2 Vote))
'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
movement of image according to timer Comments
No comments yet — be the first to post one!
Post a Comment