Бегущая строка - VB (62968)

Формулировка задачи:

Здравствуйте! Помогите сделать бегущею строку, чтобы она бежала справа налево и доходя до конца окна снова начинала бежать с исходного положения.

Решение задачи: «Бегущая строка»

textual
                            Листинг программы 
                        

                            Public Class frmMain
    Const LineText As String = "Программирование на Visual Basic" 
    Const TimerInt As Integer = 90
    Dim LenText As Integer
    Dim TimerValue As Integer
    Private Sub frmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        tmrTimer.Enabled = True
        tmrTimer.Interval = TimerInt
        LenText = Len(LineText)
        lblLine.Text = LineText
        lblLine.TextAlign = ContentAlignment.MiddleRight
        TimerValue = 0
    End Sub
    Private Sub tmrTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrTimer.Tick
        TimerValue = TimerValue + 1
        If TimerValue > LenText Then
            TimerValue = 1
        End If
        lblLine.Text = Mid(LineText, 1, TimerValue)
    End Sub
End Class
                        