• Home
 · 
• Custom Controls/Forms/Menus
 · 
• moving text

moving text

moving text

Rate moving text

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'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