Scrolling text visual basic

VERSION 5.00
Begin VB.Form Form1
BackColor=&H80000007&
Caption ="(c)1999 Mr Slade, please visit me at http://hem.passagen.se/tonek/vb"
ClientHeight=2205
ClientLeft =60
ClientTop=345
ClientWidth =6120
ControlBox =0'False
LinkTopic="Form1"
ScaleHeight =2205
ScaleWidth =6120
StartUpPosition =3 'Windows Default
Begin VB.Timer Timer1
Interval=500
Left=0
Top =0
End
Begin VB.Label Label1
Alignment=1 'Right Justify
BackStyle=0 'Transparent
BeginProperty Font
Name="Garamond"
Size=11.25
Charset =0
Weight =400
Underline=0'False
Italic =0'False
Strikethrough=0'False
EndProperty


ForeColor=&H0080C0FF&
Height =255
Left=840
TabIndex=0
Top =840
Width=4335
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'// Let you make scrollable text in a la
' bel without moving the label.. its fixed
' ...
'// ----------------
'// Got it from: http://hem.passagen.se/
' tonek/vb
'// Author : Martin Tonek
'// Date of upload : July/15/1999
'// ----------------
'// Remember that this code only functio
' n with the assigned fonts,fontssize and
'// labelwidth. It will look more nicer
' when using ths font that have a fixed
'// width then a font like arial. Also t
' he labelwidth was set for 41 letters so
'// when changing the font you have to c
' hange labelwidth or/and settings for
'// letters.
'//
'// CAUTION!! Change the source code and
' the code can fail!!
'//
'// AddMezz (c)1998 EzySoft, All rights
' reserved
Dim s As Integer
Dim dta As String


Private Sub Form_Load()

'// Centering the form
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
'// Change Label and Timer prefs
Label1.Caption = ""
Timer1.Enabled = True
Timer1.Interval = 100
Label1.Width = 4335
Label1.Font = "Courier New"
Label1.Font.Size = 9
Label1.Font.Bold = True
End Sub



Private Sub Timer1_Timer()

'// put your text here in dta string
dta = "Mr Slade made IT - please visit http://hem.passagen.se/tonek/vb For updates and other avalible sources! (c)1999 Mr Slade" & Space$(41)
s = s + 1
Label1.Caption = Mid(dta, 1, s)
If Len(Label1.Caption) >= 42 Then Label1.Caption = Right(Label1.Caption, 41)


If s = Len(dta) Then
Label1.Caption = ""
s = 0
End If

End Sub