• Home
 · 
• Miscellaneous
 · 
• Constantly change color of a label using a timer control.

Constantly change color of a label using a timer control.

Constantly change color of a label using a timer control.

Rate Constantly change color of a label using a timer control.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'create another timer control ('tmrTim2') with the interval property set to 500
'let there be two labels ('lblA' and 'lblB') with backcolor as vbBack
'lblA changes color
'lblB flickers


private sub tmeTim1_timer()
lblA.forecolour=RGB(rnd * 256 + 1, rnd * 256 + 1, rnd * 256 + 1)
end sub

private sub tmrTim2_timer()
intTim = intTim + 1
if (intTim Mod 2 = 0) then
lblB.forecolor = vbBlack
else
lblB.forecolor = vbGreen
end if
end sub