by Thorin (2 Submissions)
Category: String Manipulation
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Tue 9th September 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Marque scroll text in a text box very easily
'Credits = text to be scrolled
'text1 is the recieving control
Dim i As Integer
i = Len(Text1.Text) - 1
Text1.Text = Right$(Text1.Text, i)
If Text1.Text = "" Then Text1.Text = Credits End If