[ A1 Code ] Simple Scroll TextThis 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.
'**************************************
' Name: [ A1 Code ] Simple Scroll Text
' Description:This code is the simplest
' form of Scrolling Text. It uses a Timer
' controle to make a label scroll. No cons
' ideration is required for screen cordina
' tes or size or any other thing. Have a l
' ook at this simple scroll text applicati
' on and Please do rate it :) I am watchin
' g from sachinweb@hotmail.com
' By: Sachin Mehra (Delhi)
'
'This code is copyrighted and has' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/vb/scripts/Sho
' wCode.asp?txtCodeId=34901&lngWId=1'for details.'**************************************
Form1 (starts)
======================
Private Sub Form_Load()
Label1.Caption = "Hi all, I am Sachin "
Timer1.Enabled = True
Timer1.Interval = 300
End Sub
Private Sub Timer1_Timer()
Dim str As String
str = Form1.Label1.Caption
str = Mid$(str, 2, Len(str)) + Left(str, 1)
Form1.Label1.Caption = str
End Sub
=================================
Form1 (Ends)
