Visual Basic

Public Class Form1<br />
<br />
    Public Sub TransformExample(ByVal e As PaintEventArgs)<br />
<br />
        ' Create a path and add and ellipse.<br />
        Dim myPath As New Drawing2D.GraphicsPath<br />
        myPath.AddEllipse(0, 0, 100, 200)<br />
<br />
        ' Draw the starting position to screen.<br />
        e.Graphics.DrawPath(Pens.Black, myPath)<br />
<br />
        ' Move the ellipse 100 points to the right.<br />
        Dim translateMatrix As New Drawing2D.Matrix<br />
        translateMatrix.Translate(100, 0)<br />
        myPath.Transform(translateMatrix)<br />
<br />
        ' Draw the transformed ellipse to the screen.<br />
        e.Graphics.DrawPath(New Pen(Color.Red, 2), myPath)<br />
    End Sub<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
        TransformExample()<br />
    End Sub<code>