<code>Option Explicit
 
Private Sub Form_Load()
  <font color=green>' Label positionieren</font>
  lblLauftext.Left = -lblLauftext.Width  
End Sub
 
Private Sub Timer1_Timer()
  <font color=green>' Label verschieben</font>
  With lblLauftext
    .Left = .Left + 15
    If .Left > Picture1.Width Then .Left = -.Width
  End With
End Sub</code>