Imports System.Text
Public Class Form1
    Dim atext As String = "            VB-Archiv 25.05.2006                  "
    Dim tsp As String = ""
    Dim pos As Int32 = 0
    Private Function CharGetPixel(ByVal c As String) As String
        Dim bmp As New Bitmap(7, 7)
        Dim g As Graphics = Graphics.FromImage(bmp)
        Dim s As New StringBuilder
        g.TranslateTransform(-3, -4)
        g.DrawString(c, New Font("Courier New", 8), Brushes.Black, 0, 0)
        For x As Int32 = 0 To 6
            For y As Int32 = 0 To 6
                If bmp.GetPixel(x, y) = Color.FromArgb(0, 0, 0) Then
                    s.Append("0")
                Else
                    s.Append(" ")
                End If
            Next
        Next
        g.Dispose()
        bmp.Dispose()
        Return s.ToString
    End Function
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        e.Graphics.Clear(Color.Black)
        For x As Int32 = 0 To 80
            For y As Int32 = 0 To 6
                If tsp.Chars(pos + y + (x * 7)) = "0" Then
                    e.Graphics.FillEllipse(Brushes.Red, x * 10, 10 + y * 10, _
                      10, 10)
                End If
            Next
        Next
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        pos += 7
        If pos >= 1600 Then pos = 0
        PictureBox1.Refresh()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 150
        Timer1.Enabled = True
        Me.Size = New Size(830, 125)
        PictureBox1.Size = New Size(810, 90)
        PictureBox1.Location = New Size(6, 5)
        For Each i As Char In atext
            tsp &= CharGetPixel(i)
        Next
    End Sub
End Class