вращающиеся обьекты

Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class Form1
    Private Sub rotating(ByVal sender As Object, ByVal e As PaintEventArgs) Handles Me.Paint
        Dim path As New GraphicsPath()
        path.AddEllipse(New Rectangle(100, 100, 50, 50))
        Dim matr As New Matrix()
        Static angle As Single = 0.0F
        angle = angle + 30.0F
        matr.RotateAt(angle, New PointF(255.0, 165.0))
        path.Transform(matr)
        e.Graphics.FillPath(Brushes.Brown, path)
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Refresh()
    End Sub
    Private Sub RotatePolygon(ByVal sender As Object, ByVal e As PaintEventArgs) Handles Me.Paint
        Dim path As New GraphicsPath()
        path.AddPolygon(New PointF() {New PointF(255.0, 130.0), New Point(230.0, 195.0), New Point(320.0, 195.0)})
        Dim matr As New Matrix()
        Static angle As Single = 0.0F
        angle = angle + 10.0F
        matr.RotateAt(angle, New PointF(255.0, 165.0))
        path.Transform(matr)
        e.Graphics.FillPath(Brushes.Brown, path)
    End Sub
End Class