Вращение прямоугольника вокруг центра

Public Class Recctangle
    'Задание 2. Задача 1.Составить программу вращения прямоугольника вокруг центра.
    Dim graph As Graphics
    Dim myPen As New Pen(Brushes.Red, 2)
    Dim x2, y2, x3 As Integer
    Dim x1 As Integer = 50
    Dim y1 As Integer = 50
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        graph = Me.CreateGraphics
        x2 = 200
        y2 = 150
        graph.DrawRectangle(myPen, x1, y1, x2, y2)
    End Sub
End Class

Public Class Form1
    Dim rect As New Rectangle(0, 0, 100, 150)
    Dim alpha As Single = 0
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Me.Refresh()
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Timer1.Enabled = True
    End Sub
 
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        Using g As Graphics = e.Graphics
            g.TranslateTransform(Me.ClientRectangle.Width / 2, Me.ClientRectangle.Height / 2)
            g.RotateTransform(alpha)
            alpha += 1
            g.DrawRectangle(New Pen(Color.Black), New Rectangle(-rect.Width / 2, -rect.Height / 2, rect.Width, rect.Height))
        End Using
    End Sub
End Class

''' <summary>
''' Рисование окружности с засечками
''' </summary>
''' <param name="radius">Радиус окружности в пикселях</param>
''' <returns>Возвращает объект типа Bitmap с нарисованной окружностью</returns>
Private Function DrawCircle(radius As Integer) As Bitmap
    Using bmp As New Bitmap(2 * radius + 4, 2 * radius + 4)
        Using g As Graphics = Graphics.FromImage(bmp)
            'Перо для рисования
            Dim drawPen As New Pen(Color.Red, 1) With {.Alignment = Drawing2D.PenAlignment.Inset}
            'Длина длинной и короткой чёрточки
            Dim l As Integer = 20, s As Integer = 10
            'Заливка фона
            g.Clear(Color.White)
            'Перенос начала координат в центр изображения
            g.TranslateTransform(radius + 2, radius + 2)
            'Угол поворота
            Dim angle As Single = CSng(360 / 24)
            For i = 0 To 23
                Select Case i
                    Case 0, 6, 12, 18
                        'В четвертях рисуем длинные засечки
                        g.DrawLine(drawPen, 0, -radius, 0, -radius + l)
                    Case Else
                        'В остальных случаях — короткие
                        g.DrawLine(drawPen, 0, -radius, 0, -radius + s)
                End Select
                'Вращение изображения на заданный угол
                g.RotateTransform(angle)
            Next
            'Возврат к мировым координатам
            g.ResetTransform()
            'Смена цвета пера
            drawPen.Color = Color.Green
            'Рисование окружности
            g.DrawEllipse(drawPen, New Rectangle(2, 2, 2 * radius, 2 * radius))
            'Уничтожение пера
            drawPen.Dispose()
        End Using
        Return bmp
    End Using
End Function

    Dim Angl As Single = 0
 
    Private Sub DrawCircle(ByVal radius As Integer, ByVal g As Graphics, ByVal Angl As Single)
        'Перо для рисования
        Dim drawPen As New Pen(Color.Red, 1) With {.Alignment = Drawing2D.PenAlignment.Inset}
        'Длина длинной и короткой чёрточки
        Dim l As Integer = 20, s As Integer = 10
        'Заливка фона
        g.Clear(Color.White)
        g.RotateTransform(Angl)
        'Перенос начала координат в центр изображения
        g.TranslateTransform(radius + 2, radius + 2, Drawing2D.MatrixOrder.Append)
        'Угол поворота
        Dim angle As Single = CSng(360 / 24)
        For i = 0 To 23
            Select Case i
                Case 0, 6, 12, 18
                    'В четвертях рисуем длинные засечки
                    g.DrawLine(drawPen, 0, -radius, 0, -radius + l)
                Case Else
                    'В остальных случаях — короткие
                    g.DrawLine(drawPen, 0, -radius, 0, -radius + s)
            End Select
            'Вращение изображения на заданный угол
            g.RotateTransform(angle)
        Next
        'Возврат к мировым координатам
        g.ResetTransform()
        'Смена цвета пера
        drawPen.Color = Color.Green
        'Рисование окружности
        g.DrawEllipse(drawPen, New Rectangle(2, 2, 2 * radius, 2 * radius))
 
        'Уничтожение пера
        drawPen.Dispose()
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        DrawCircle(100, e.Graphics, Angl)
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Angl += 0.5
        Me.Refresh()
    End Sub