This simple application illustrates how GraphicsPaths can be animated to look like something is moving across the screen. Below is the simple design for the cartwheel program:

Figure 1 - UML Design reverse engineered using WithClass 2000.

Figure 2 - Cartwheel Man in Action.

All of the GraphicsPath manipulation is done in the Figure Class. The Graphics path stick figure is originally created in the constructor. When you create a GraphicsPath stick figure, you need to backtrack on lines you don't want connected, otherwise the program will add lines to fill the path. At the end of our constructor we also do some initial scaling and translation of our stick figure to shrink him and put him more in the center of the screen.

Public Sub New()
' Create the figure
m_gp.AddEllipse(50, 50, 30, 30)
m_gp.AddLine(65, 80, 65, 110)
m_gp.AddLine(65, 110, 10, 110)
m_gp.AddLine(10, 110, 120, 110)
m_gp.AddLine(120, 110, 65, 110)
m_gp.AddLine(65, 110, 65, 150)
m_gp.AddLine(65, 150, 0, 200)
m_gp.AddLine(0, 200, 65, 150)
m_gp.AddLine(65, 150, 80, 200)
' Form the scaling matrix and initial translation matrix
ScaleMatrix.Scale(0.25F, 0.25F)
InitialTranslateMatrix.Translate(10, 50)
' Form the TranslationMatrix used on each draw
TranslateMatrix.Translate(10, 0)
' Scale the GraphicsPath according to the Scale matrix 1/4 size
m_gp.Transform(ScaleMatrix)
' Do an initial transformation to put the figure lower on the screen
m_gp.Transform(InitialTranslateMatrix)
' Remember the original GraphicsPath
m_gpOld = CType(m_gp.Clone(), GraphicsPath)
End Sub 'New

The Draw routine of the Figure class, rotates and translates the stick figure to make him appear he is doing cartwheels along the form. Below is the code for drawing the stickman. Here, the original graphics path is copied into the graphics path we are going to transform. The Point of rotation is the midpoint of the stickman calculated from the bounding rectangle of the graphics path. The RotateMatrix is rotated by 30 degrees around the midpoint of the stick figure each time the figure is drawn. Also the Translation Matrix is Translated 20 pixels in the horizontal direction each time the Figure is drawn. Both these matrices are applied to the graphics path and the path is finally drawn.

Public Sub Draw(ByVal g As Graphics, ByVal position As Integer)
' Get the original graphics path unrotated and untranslated
m_gp = CType(m_gpOld.Clone(), GraphicsPath)
' calculated the point to rotate around by calculating the midpoint of the
' stick figure
Dim thePoint As PointF = m_gp.GetBounds().Location
thePoint.X += m_gp.GetBounds().Width / 2
thePoint.Y += m_gp.GetBounds().Height / 2
' translate the TranslationMatrix an additional 20 pixels
TranslateMatrix.Translate(20, 0)
' rotate the rotation matrix an additional 30 degrees around the current midpoint of the stick man
RotateMatrix.RotateAt(30, thePoint)
' rotate and translate the stick figure
m_gp.Transform(RotateMatrix)
m_gp.Transform(TranslateMatrix)
' Draw the stick figure in DarkBlue
g.DrawPath(Pens.DarkBlue, m_gp)
End Sub 'Draw

The Form uses a timer to Invalidate the form every 1/5 of a second. This causes the Paint Event Handler to redraw every 1/5 second. The Form's Paint handler tells the Figure Object to draw and also draws a red line below the figure to make it appear as if it is cart wheeling on a tight rope. If the figure surpasses the form, the timer is stopped and a "The End" title is posted on the form.  The position of the figure is also incremented.

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
Dim g As Graphics = e.Graphics
' Draw a tight rope
g.DrawLine(Pens.Red, 0, LineBase, ClientRectangle.Right, LineBase)
' Draw the cart-wheeling man
TheMan.Draw(g, m_CurrentPosition)
' Stop the animation if the man has cart-wheeled off the screen and show 'The End'
If TheMan.GetRight() > ClientRectangle.Right Then
timer1.Stop()
g.DrawString("The End", LargeFont, Brushes.DarkMagenta, ClientRectangle.Width / 2 - LargeFont.SizeInPoints * 7 / 2, TheMan.GetBottom() + 26, New StringFormat)End If
' Increment the current position
m_CurrentPosition += 1
End Sub 'Form1_Paint

A Restart button has also been added to allow you to restart the figure anytime through the cartwheel cycle. This button calls the Figure Class's Reset method to reset the transformation matrices and restart the timer.

Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)m_CurrentPosition = 0
TheMan.Reset()
timer1.Start()
Invalidate()
End Sub 'button1_Click

Also worth noting is the double buffering in the form. To reduce flickering the following lines were added in the constructor of the form.

' Double Buffering
SetStyle(ControlStyles.UserPaint, True)
SetStyle(ControlStyles.AllPaintingInWmPaint, True)
SetStyle(ControlStyles.DoubleBuffer, True)