Private Sub Button1_Paint(sender As Object, e As PaintEventArgs) Handles Button1.Paint
Dim button As Button = CType(sender, Button)
Dim path As New System.Drawing.Drawing2D.GraphicsPath()
path.AddEllipse(0, 0, button.Width, button.Height)
button.Region = New Region(path)
End Sub