Public Class Form1
 
    Dim Z As Graphics
    Dim Stift As New Pen(Color.Blue, 5)
    Dim Pinsel As New SolidBrush(Color.Red)
 
    Private Sub Form1_Paint(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Static i As Integer
        Z = e.Graphics
        Z.DrawRectangle(Stift, i + 50, 50, 200, 100)
        Z.FillRectangle(Pinsel, i + 50, 50, 200, 100)
        i = i + 1
    End Sub
 
    Private Sub RechteckButton_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles RechteckButton.Click
        RechteckTimer.Enabled = True
    End Sub
 
    Private Sub RechteckTimer_Tick(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles RechteckTimer.Tick
        Me.Invalidate()
    End Sub
 
End Class