Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
 
        Static x As Single
 
        Static BMP As New Bitmap(100, 20)
        ' Deklariere ich als Static - Grund: Einmalige Deklaration spart ( 
        ' VIEL!!!)  Zeit
 
        x -= 1
        If x < 0 Then x = BMP.Width
 
        Dim GR As Graphics = Graphics.FromImage(BMP)
        GR.FillRectangle(New SolidBrush(Color.White), 0, 0, BMP.Width, _
          BMP.Height)
        GR.DrawString("Test!!!", New Font("Arial", 10), New SolidBrush( _
        Color.Black), x, 0)
        GR.Dispose()
 
 
        Dim gr2 As Graphics = Me.CreateGraphics
        gr2.DrawImage(BMP, 0, 0)
        gr2.Dispose()
 
 
    End Sub