Alternative for Marquee in VB.net

Private m_intMarqueeCounter As Integer = 1
Private m_bolMarqueeIncrementUp As Boolean = True

Private Sub YourMarqueeTimer_Tick()

   'You can decide what number is best for your app.
   If m_intMarqueeCounter = 10 Then
      m_bolMarqueeIncrementUp = False
   End If

   If m_intMarqueeCounter = 0 Then
      m_bolMarqueeIncrementUp = True
   End If

   Dim intX As Integer
   For intX = 0 to m_intMarqueeCounter
      frmYourForm.Text = " " & "Your Title"
   Next

   If m_bolMarqueeIncrementUp Then
      m_intMarqueeCounter += 1
   Else
      m_intMarqueeCounter -= 1
   End If

End Sub