Join 149,947 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 1,392 people online right now. Registration is fast and FREE... Join Now!
slider properties max-20 min-0 large change-1 timer interval-1000 code timer_timer() slider1.value=slider1.value+1 if slider1.value>=20then slider1.value=1 endif end sub slider1_change() me.backcolor=qbcolor(slider1.value) end sub
| 
