Dim p1 As New Point(10, 10)
        Dim p2 As New Point(220, 110)
        Dim p3 As New Point(50, 240)
 
        Using path As New Drawing2D.GraphicsPath, brush As New _
          Drawing2D.HatchBrush(Drawing2D.HatchStyle.BackwardDiagonal, _
          Color.Red, Color.White)
            path.AddPolygon(New Point() {p1, p2, p3})
            e.Graphics.DrawPath(Pens.Red, path)
            e.Graphics.FillPath(brush, path)
        End Using