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
    Z = e.Graphics
    Z.DrawRectangle(Stift, 50, 50, 200, 100)
    Z.FillRectangle(Pinsel, 50, 50, 200, 100)
End Sub

Private Sub RechteckTimer_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RechteckTimer.Tick
    Static i As Integer
    Z.DrawRectangle(Stift, i, 50, 200, 100)
    Z.FillRectangle(Pinsel, i, 50, 200, 100)
    i = i + 1
End Sub