Imports System.Text
Public Class Form1
    Dim bmp As New Bitmap(1800, 48)
    Dim g As Graphics = Graphics.FromImage(bmp)
    Dim atext As String = "            VB-Archiv 03.06.2006             "
    Dim tsp As String = ""
    Dim pos As Int32 = 0
    Private Function CharGetPixel(ByVal c As String) As String
        Dim bmp As New Bitmap(10, 12)
        Dim g As Graphics = Graphics.FromImage(bmp)
        Dim s As New StringBuilder
        g.TranslateTransform(-3, -4)
        g.DrawString(c, New Font("Courier New", 12), Brushes.Black, 0, 0)
        For x As Int32 = 0 To 9
            For y As Int32 = 0 To 11
                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 Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        pos += 4
        If pos >= 1300 Then pos = 0
        PictureBox1.Invalidate()
    End Sub
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        g.Dispose()
        bmp.Dispose()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim p As Int32
        Timer1.Interval = 150
        Timer1.Enabled = True
        Me.Size = New Size(500, 85)
        PictureBox1.Size = New Size(480, 48)
        PictureBox1.Location = New Size(6, 5)
        Me.BackColor = Color.Green
        For Each i As Char In atext
            tsp &= CharGetPixel(i)
        Next
        PictureBox1.BackColor = Color.Black
        For x As Int32 = 0 To 1796 Step 4
            For y As Int32 = 0 To 11
                If tsp.Chars(p) = "0" Then
                    g.FillRectangle(Brushes.Yellow, x, y * 4, 3, 3)
                Else
                    g.FillRectangle(Brushes.Gray, x, y * 4, 3, 3)
                End If
                p += 1
            Next
        Next
    End Sub
    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        e.Graphics.DrawImage(bmp, 0, 0, New Rectangle(pos, 0, 480, 48), _
        GraphicsUnit.Pixel)
    End Sub
End Class