• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Scroll text/caption in 6 lines of code

Scroll text/caption in 6 lines of code

Scroll text/caption in 6 lines of code

Rate Scroll text/caption in 6 lines of code

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Timer1_Timer()
Dim i As Integer
i = Len(Text1.Text) - 2            'Number of chars to remove (less=more res)   
Text1.Text = Right$(Text1.Text, i) 'Remove characters
If Text1.Text = "" Then            'Run out of text to scroll
    Text1.Text = YourText          'Reset to Credits
End If

End Sub