Metodo DrawPolygon y FillPolygon de Visual Studio
Aquí les copio el código:
Dim pnt1 As New Point(30,80)
Dim pnt2 As New Point(60, 10)
Dim pnt3 As New Point(80,10)
Dim pnt4 As New Point(110, 80)
Dim pnt5 As New Point(90, 80)
Dim pnt6 As New Point(80, 60)
Dim pnt7 As New Point(60, 60)
Dim pnt8 As New Point(50, 80)
Dim pol1 As Point() = {pnt1, pnt2, pnt3, pnt4, pnt5, pnt6, pnt7, pnt8}
e.Graphics.FillPolygon(Brushes.DarkGray, pol1)
Dim pnt9 As New Point(75, 50)
Dim pnt10 As New Point(65, 50)
Dim pnt11 As New Point(70, 40)
Dim pol2 As Point() = {pnt9, pnt10, pnt11}
e.Graphics.FillPolygon(Brushes.White, pol2)