Stock Ticker in VB5

Hi, I need to create a 'stock ticker' type text box. For simplicity, let's say I have a set text string I want to scroll across the screen, like you can with that annoying HTML tag. I have gotten close, but I haven't quite been able to figure out how to do it. Can anybody help, please?
MrusineAsked:
Who is Participating?
 
wfordConnect With a Mentor Commented:
try this, its just a form with a timer, a label and a private sub

Private Sub Form_Load()
 Label1 = "This is a ticker tape ....."
 Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
 Call fm_ticker
End Sub

Private Sub fm_ticker()
  Dim TmpStr As String
  Dim n as long

  TmpStr = Label1
  n = Len(TmpStr)
  TmpStr = Right$(TmpStr, n - 1) & Left$(TmpStr, 1)
  Label1 = TmpStr
End Sub
0
 
MrusineAuthor Commented:
From Mrusine:

Sorry, I said Text Box when I mean Label - not sure if it makes a difference, but I wanted to clarify.
0
 
jjmartinCommented:
There is a a control called CoolTicker you can download from download.com.  This has the functionality you are looking for.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.