Public Class RoundButton
Inherits Button
Protected Overrides Sub OnPaint(ByVal pevent As System.Windows.Forms.PaintEventArgs)
Me.Size = New Size(50, 50)
Dim aCircle As New System.Drawing.Drawing2D.GraphicsPath
aCircle.AddEllipse(New System.Drawing.RectangleF(0, 0, 50, 50))
Me.Region = New Region(aCircle)
End Sub
Private Sub RoundButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
MessageBox.Show("Hello")
End Sub
End Class
Public Class RoundButton
Inherits Button
Protected Overrides Sub OnPaint(ByVal pevent As System.Windows.Forms.PaintEventArgs)
Me.Size = New Size(50, 50)
Dim aCircle As New System.Drawing.Drawing2D.GraphicsPath
aCircle.AddEllipse(New System.Drawing.RectangleF(0, 0, 50, 50))
Me.Region = New Region(aCircle)
End Sub
Private Sub RoundButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
MessageBox.Show("Hello")
End Sub
End Class