Move words from right to left on a label. I don't have the Timer control

Guessed · #1 08-31-2021, 09:02 PM

Add the red lines to move a second same-sized label called labelTicker2

Code:

Private Sub UserForm_Activate()
  Dim iWidth As Integer, iFormWidth As Integer, iStep As Integer
  
  iStep = 1
  iFormWidth = Me.Width - 20
  With Me.labelTicker
    .Left = iFormWidth
    Me.labelTicker2.Left = .Left
    Do
      Sleep 20
      DoEvents
      If .Left > -1 * .Width Then
        .Left = .Left - iStep
      Else
        .Left = iFormWidth
      End If
      Me.labelTicker2.Left = .Left
    Loop
  End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to edit columns and move the right column more to the left?	bchinjy	Word	3	07-29-2019 05:23 AM
move the milestone label to left of column	wilster31	Project	0	07-31-2017 07:58 AM
How to move page numbers left and right in header	enginist	Word	4	08-03-2014 09:29 PM
How to either move document display to right or left; or reduce size of find/replace window.	pmstock	Word	2	08-02-2014 08:34 PM
i want to place labels on to the left of the page anchored to words within	soooty	Word	0	07-07-2010 09:18 AM