Imports System.Drawing.Drawing2D
 
Public Class Form1
    Private WithEvents PB1 As New PictureBox With {.Dock = DockStyle.Fill, _
      .Parent = Me}
    Private gp As New GraphicsPath
    Private angle As Single
 
    Private Sub Form1_Load(ByVal seder As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        gp.AddEllipse(New RectangleF(70, 70, 150, 100))
    End Sub
 
    Private Sub PB1_MouseDown(ByVal sender As System.Object, ByVal e As _
      MouseEventArgs) Handles PB1.MouseDown
        angle += If(e.Button = MouseButtons.Left, -5, 5)
        Me.Text = angle.ToString
        PB1.Invalidate()
    End Sub
 
    Private Sub PB1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PB1.Paint
        Using m As New Matrix
            m.RotateAt(angle, New PointF(145, 120))
            With e.Graphics
                .SmoothingMode = SmoothingMode.AntiAlias
                .Transform = m
                .FillPath(Brushes.Yellow, gp)
                .DrawPath(Pens.Black, gp)
            End With
        End Using
    End Sub
End Class