Source [SUB/FUNCTION] Improve label text / How to Add Swag Too Labels

Code
Sub AddSwagToLabel(youritem As Object, message As String, Optional timeout As Integer = 20)

      CheckForIllegalCrossThreadCalls = False

      Dim pref As String = "_"

      Dim eachline() As String = message.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)

      youritem.Text = pref

      Windows.Forms.Application.DoEvents()

      For i = 0 To eachline.Length - 1

      Dim eachword() As String = eachline(i).Split(" ")



      For ii = 0 To eachword.Length - 1

            Dim eachchar() As Char = eachword(ii).ToCharArray



            For iii = 0 To eachchar.Length - 1

            Thread.Sleep(timeout)

            youritem.Text = (youritem.Text.Replace(pref, "") & eachchar(iii)) & pref

            Windows.Forms.Application.DoEvents()

            Next

            youritem.Text = (youritem.Text).Replace("_", "") & " _"

            Windows.Forms.Application.DoEvents()

      Next

      youritem.Text = (youritem.Text & youritem.Text).Replace("_", "") & " _"

      Windows.Forms.Application.DoEvents()

      Next

      youritem.Text = youritem.Text.Replace("_", "")

      Windows.Forms.Application.DoEvents()

    End Sub