Option Explicit
 
' im Allgemeinteil
Dim iCurPos As Integer
Dim iCurPosEnd As Integer
 
Private Const sMyText As String = "Hallo, das ist eine kleine Laufschrift"
Private Sub Timer1_Timer()
    If iCurPosEnd <= 0 Then
        iCurPos = Picture1.ScaleWidth
    Else
        iCurPos = iCurPos - 1
    End If
 
    Picture1.Cls
    Picture1.CurrentX = iCurPos
    Picture1.Print sMyText;
    iCurPosEnd = Picture1.CurrentX
End Sub

Ciao,
Manfred Becker