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