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

Guessed · #11 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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