moving text

by lol champion habeeb olarinde(lol of LCCC)Lagos City Computer College Nigeria (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 4^th March 2004
Date Added: Mon 8^th February 2021
Rating: (2 Votes)

moving text

Rate moving text



'type in the text you want it to move
'insert 2 timer
private sub timer1_timer()
label1.left=label1.left + 40
if label1.left=5000 then
label1.backcolor=vbred
label1.left=0
label1.left=label1.left + 40
elseif label1.backcolor=vbred then label1.backcolr=vbblue
elseif label1.backcolor=vbblue then label1.backcolor=vbred
end if
end sub


private sub timer2_timer ()
dim a as lond
for a=1 to 15
form1.backcolor=rnd * a
next a
end sub

Download this snippet Add to My Saved Code

moving text Comments

No comments have been posted about moving text. Why not be the first to post a comment about moving text.

moving text

moving text Comments

Post your comment

Difficulty