Public Class Form1
    Private WithEvents t As New Timer
    Dim pos As Int32
    Dim txt As String = "Heute ist Freitag, der 10.08.2007"
    Dim fo As New Font("Arial", 16)
 
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        e.Graphics.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAlias
        e.Graphics.TranslateTransform(-pos, 0)
        e.Graphics.DrawString(txt, fo, Brushes.White, PictureBox1.Width, 0)
        If pos > e.Graphics.MeasureString(txt, fo).Width + PictureBox1.Width Then
            pos = 0
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        PictureBox1.SetBounds(10, 10, 250, 30)
        PictureBox1.BorderStyle = BorderStyle.Fixed3D
        PictureBox1.BackColor = Color.Green
        t.Interval = 30
        t.Start()
    End Sub
 
    Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles t.Tick
        pos += 1
        PictureBox1.Refresh()
    End Sub
End Class