Private schritt As Integer
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        schritt += 1
        Me.Refresh()
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        Dim p As New Pen(Color.Brown, 3)
        Dim r As New RectangleF(0, 0, 250, 300)
        Dim lb As New System.Drawing.Drawing2D.LinearGradientBrush(r, _
          Color.Blue, Color.Green, Drawing2D.LinearGradientMode.Vertical)
        Dim i As Integer
        Dim textrect As New RectangleF(10, 10, 240, 50)
        Dim fo As New System.Drawing.Font("Comic Sans MS", 10, FontStyle.Bold)
 
 
        e.Graphics.FillRectangle(lb, r)
 
        Dim text() As String = {"Das ", "ist ", "das ", "Haus ", "vom ", "NI", _
          "KO", "LAUS!", "", "", "", "", "", "", "", ""}
        Dim TextAnzeige As String = ""
 
        For i = 0 To schritt - 1
            TextAnzeige &= text(i)
        Next
 
 
        With e.Graphics
            If schritt > 0 Then .DrawLine(p, 50, 200, 150, 200)
            If schritt > 1 Then .DrawLine(p, 150, 200, 150, 100)
            If schritt > 2 Then .DrawLine(p, 150, 100, 50, 100)
            If schritt > 3 Then .DrawLine(p, 50, 100, 50, 200)
            If schritt > 4 Then .DrawLine(p, 50, 200, 150, 100)
            If schritt > 5 Then .DrawLine(p, 150, 100, 100, 50)
            If schritt > 6 Then .DrawLine(p, 100, 50, 50, 100)
            If schritt > 7 Then .DrawLine(p, 50, 100, 150, 200)
 
            .DrawString(TextAnzeige, fo, Brushes.Black, textrect)
        End With
 
        If schritt = text.Length Then schritt = 0
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 2000
        Timer1.Enabled = True
 
        Me.Width = 250
        Me.Height = 333
 
        'Damit es nicht flimmert: Falls es "DoubleBuffered" nicht gibt ( 
        ' falsches Framework) einfach weglassen!!
        Me.DoubleBuffered = True
    End Sub