Dim canvas1 As Canvas
canvas1.Initialize(ImageView1)
Dim PolygonPath As Path
PolygonPath.Initialize (64,154)
PolygonPath.LineTo (113,234)
PolygonPath.LineTo (193,114)
PolygonPath.LineTo (203,80)
PolygonPath.LineTo (293,54)
PolygonPath.LineTo (423,24)
canvas1.ClipPath(PolygonPath)
canvas1.DrawPath(PolygonPath,Colors.Cyan, False, 12dip)
canvas1.RemoveClip