Scroll text/caption in 6 lines of code

by Thorin (2 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 7^th January 2002
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Scroll text/caption in 6 lines of code




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

Download this snippet Add to My Saved Code

Scroll text/caption in 6 lines of code Comments

No comments have been posted about Scroll text/caption in 6 lines of code. Why not be the first to post a comment about Scroll text/caption in 6 lines of code.

Scroll text/caption in 6 lines of code

Scroll text/caption in 6 lines of code Comments

Post your comment

Difficulty