Search Tools Links Login

Simple Scroll

This code is the simplest form of Scrolling Text. It uses a Timer controle to make a label scroll.
No consideration is required for screen cordinates or size or any other thing. Have a look at this simple scroll text application and Please do rate it :) I am watching from

Original Author: Sachin Mehra


Form1 (starts)
Dim str As String
Private Sub Form_Load()
Label1.Caption = "Hi all, I am Sachin "
Timer1.Enabled = True
Timer1.Interval = 300
End Sub
Private Sub Timer1_Timer()
str = Form1.Label1.Caption
str = Mid(str, 2, Len(str)) + Mid(str, 1, 1)
Form1.Label1.Caption = str
End Sub
Form1 (Ends)

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 73 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.