Visual Basic

 Imports System.Drawing.Drawing2D<br />
       Imports System.Drawing.Drawing2D.GraphicsPath<br />
       Imports System.Drawing.Drawing2D.GraphicsContainer<br />
<br />
<br />
<br />
         Dim pts() As Point = { _<br />
         New Point(5, 15), _<br />
         New Point(35, 15), _<br />
         New Point(35, 5), _<br />
         New Point(55, 25), _<br />
         New Point(35, 45), _<br />
         New Point(35, 35), _<br />
         New Point(5, 35) _<br />
     }<br />
        ' Make the GraphicsPath.<br />
        Dim polygon_path As New GraphicsPath(FillMode.Winding)<br />
        polygon_path.AddPolygon(pts)<br />
        '<br />
        '   Convert the GraphicsPath into a Region.<br />
        Dim polygon_region = New Region(polygon_path)<br />
<br />
        ' Constrain the button to the region.<br />
        Button1.Region = polygon_region<br />
<br />
        ' Make the button fit the region.<br />
        Button1.SetBounds(Button1.Location.X, _<br />
            Button1.Location.Y, pts(3).X + 5, pts(4).Y + 5)<br />
<br />
    End Sub