Microsoft Office Forums - View Single Post - Move words from right to left on a label. I don't have the Timer control

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