Бегущая строка притормаживает при большом количестве символов

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            LabelБегущаяСтрока.Text = IO.File.ReadAllText(Application.StartupPath & "\text.ini", System.Text.Encoding.Default)
        Catch ex As Exception
 
        End Try
        LabelБегущаяСтрока.AutoSize = True
        LabelБегущаяСтрока.Location = New Point(Me.Width, 2)
        Timer1.Interval = 3
        Timer2.Interval = 200
        Timer1.Start()
        Timer2.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If LabelБегущаяСтрока.Left + LabelБегущаяСтрока.Width <= 0 Then
            LabelБегущаяСтрока.Left = Me.Width
        End If
        LabelБегущаяСтрока.Left = LabelБегущаяСтрока.Left - 25
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Try
            LabelБегущаяСтрока.Text = IO.File.ReadAllText(Application.StartupPath & "\text.ini", System.Text.Encoding.Default)
        Catch Ex As Exception
 
 
        End Try
    End Sub

    LabelБегущаяСтрока.AutoSize = False 'True
    LabelБегущаяСтрока.Width = 30000