Visual Basic

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
text = Me.Label1.Text<br />
End Sub

Dim leftbound As Integer = -1<br />
    Dim Right As Boolean<br />
<br />
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick<br />
          If Me.Label1.Text = "" Then<br />
            Me.Label1.Location = New Point((Me.Width - leftbound), Me.Label1.Location.Y)<br />
            Right = True<br />
        End If<br />
        If Me.Label1.Location.X = leftbound Or Me.Label1.Location.X = leftbound + 1 Then<br />
            If Me.Label1.Text <> "" Then<br />
                Me.Label1.Text = Label1.Text.Remove(0, 1)<br />
            End If<br />
            Right = False<br />
        ElseIf Me.Label1.Text = text Then<br />
            Right = False<br />
            Me.Label1.Location = New Point(Me.Label1.Location.X - 2, Me.Label1.Location.Y)<br />
        ElseIf Right = True Then<br />
            If Me.Label1.Text.Length + 1 <= text.Length Then<br />
                Me.Label1.Text = text.Remove(Me.Label1.Text.Length, text.Length - (Me.Label1.Text.Length + 1))<br />
                Me.Label1.Location = New Point(Me.Label1.Location.X - 1, Me.Label1.Location.Y)<br />
            End If<br />
        End If<br />
    End Sub

  Dim s As Integer = 70<br />
        text = Me.TextBox2.Text.PadLeft(s) & Me.TextBox2.Text.PadLeft(s)<br />
        Me.TextBox2.Text = text<br />
<br />
    Dim c As Integer = 0<br />
<br />
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick<br />
<br />
        Me.Timer2.Interval = 60<br />
        If c = text.Length Then<br />
            c = 0<br />
        Else<br />
            c += 1<br />
            Dim a As String = text.Remove(c, text.Length - c)<br />
            Me.TextBox2.Text = Mid(Me.TextBox2.Text, 2) & a.Remove(0, a.Length - 1)<br />
        End If<br />
<br />
    End Sub