[RESOLVED] Need Help animated marquee text in a label not moving

hi i think something wrong in the code i got this in one of the suggestion here and i tried... i dont really have any knowledge in making a animated marquee text when i test this code and run this, the text in the label is not moving going to left.... i need this to be part of my announcement in my number system project...
here is the code

Code:

---

Option Explicit

Private Sub Form_Load()
    lblannounce.Caption = "Hello World. I am a not moving. help."
    lblannounce.Alignment = vbRightJustify
    Me.Font = lblannounce.Font
    lblannounce.Width = Me.TextWidth(lblannounce.Caption) + 30
    Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Static i As Integer
    i = i + 1
    If i = Len(lblannounce.Caption) + 1 Then
        i = 1
            lblannounce.Caption = VBA.Left$(lblannounce.Caption, i)
    End If
End Sub

---

than for the help...

Is this what you want?

vb Code:

Option Explicit
 
Private Sub Form_Load()
    lblannounce.Caption = "Hello World. I am a not moving. help."
    lblannounce.Alignment = vbRightJustify
    lblannounce.Width = Me.TextWidth(lblannounce.Caption) + 30
    Timer1.Interval = 100
End Sub
 
Private Sub Timer1_Timer()
  If Timer1.Interval = 100 Then
     lblannounce.Move lblannounce.Left - 100
  End If
End Sub

Add these two lines before your 'end if' and your marquee will continue to run over and over:

If lblannounce.Left + lblannounce.Width < 0 Then
lblannounce.Left = Me.Width

Private Sub tmrTest_Timer()
If tmrTest.Interval = 100 Then
lblCaption.Move lblCaption.Left + 100
If lblCaption.Left + lblCaption.Width < 0 Then
lblCaption.Left = Me.Width
End If
End Sub

pls is showing me compiler error

nwagboso...please start your own thread.
And in that thread,, state what the compiler error is....probably your naming of the timer or the label.
And, the interval (you set at 100 --- over and over ) doesn't make sense...nor does the "+" vice a "-" in your third line...
SO, start a new thread, new title, and someone will assist.

its working here is what i did

Code:

---

Private Sub Form_Load()
    lblannounce.Caption = "My Mesage Here"
    Timer2.Enabled = True
    Timer2.Interval = 300
End Sub

Private Sub Timer2_Timer()
Dim str As String
    str = frmnumber.lblannounce.Caption
    str = Mid$(str, 2, Len(str)) + Left(str, 1)
    frmnumber.lblannounce.Caption = str
End Sub

---

thanks for the help....