Private Stift As New Pen(Color.Blue, 5)
    Private Pinsel As New SolidBrush(Color.Red)
    Private RechteckTimerTick As Integer = 0
 
 
    Public Sub New()
        InitializeComponent()
        Me.DoubleBuffered = True
    End Sub
 
    Private Sub RechteckTimer_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles RechteckTimer.Tick
        RechteckTimerTick += 1
        Me.Invalidate() 'neues Paint-Ereignis anfordern
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = e.Graphics
        g.DrawRectangle(Stift, RechteckTimerTick, 50, 200, 100)
        g.FillRectangle(Pinsel, RechteckTimerTick, 50, 200, 100)
    End Sub