Ask the great god in the bar how to set the digital scrolling effect in vb.

Create a new project, add a timer control and a label control, and add the following code to realize it.

Code:

dimmed

Private Sub-Form _Load ()

Timer 1. Interval = 10

End joint

Private sub-timer 1_Timer ()

a = a + 100

If Label 1. Left & gt me. What about the width

a = 1

If ... it will be over.

Label 1。 Left = 1 + a

End joint