Imports System
Imports System.Drawing.Drawing2D
Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary
 
Public Class Form1
 
Dim mGP As New GraphicsPath
Dim mMatrix As New Matrix
 
Private Sub Form1_Load(ByVal seder As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
mGP.AddEllipse(New RectangleF(50, 50, 100, 50))
 
End Sub
 
Private Sub PB1_MouseDown(ByVal sender As System.Object, ByVal e As _
  MouseEventArgs) Handles PB1.MouseDown
 
                If e.Button = Windows.Forms.MouseButtons.Left Then
                    mMatrix.RotateAt(-1, New PointF(100, 100))
                ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
                    mMatrix.RotateAt(1, New PointF(100, 100))
                End If
 
                mGP.Transform(mMatrix)
 
                Refresh()
 
    End Sub
 
 Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        Dim g As Graphics = PB1.CreateGraphics
 
 
        g.DrawPath(Pens.Black, mGP)
 
    End Sub
End Class