Public Sub Example8()
  
  Paint.MoveTo(128.0, 25.6)
  Paint.LineTo(230.4, 230.4)
  Paint.LineTo(Paint.X - 102.4, Paint.Y)
  Paint.CurveTo(51.2, 230.4, 51.2, 128.0, 128.0, 128.0)
  Paint.ClosePath

  Paint.MoveTo(64.0, 25.6)
  Paint.RelLineTo(51.2, 51.2)
  Paint.RelLineTo(-51.2, 51.2)
  Paint.RelLineTo(-51.2, -51.2)
  Paint.ClosePath
  
  Paint.LineWidth = 10
  Paint.Brush = Paint.Color(Color.Blue)
  Paint.Fill(True)

  Paint.Brush = Paint.Color(Color.Black)
  Paint.Stroke
  
End
