Public Class Form1
    Private Sub Button1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Button1.Paint
        e.Graphics.FillPolygon(Brushes.Black, New PointF() {New PointF(32, 5), _
        New PointF(35, 5), _
        New PointF(35, 20), New PointF(20, 20), New PointF(20, 25), New PointF( _
        10, 19), New PointF(20, 12) _
        , New PointF(20, 18), New PointF(32, 18)})
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Button1.SetBounds(20, 20, 50, 30)
        Button1.Text = ""
    End Sub
End Class