Dim n, s

Private Sub Command1_Click()
　Picture1.Move 100, 100, 4000, 255   '長度可隨意改
　Timer1.Enabled = True
　Timer1.Interval = 20
　n = -(Me.TextWidth(Now)) - 10
End Sub

Private Sub Timer1_Timer()
　Picture1.AutoRedraw = True
　Picture1.Cls
　n = n + 10
　If Picture1.ScaleWidth <= s Then
　　n = -(Me.TextWidth(Now)) - 10
　End If
　Picture1.CurrentX = n
　s = n
　Picture1.CurrentY = 0
　Picture1.Print Now
　Picture1.AutoRedraw = False
End Sub