[vb.net] Round Button

    Private Sub RoundButton(btn As Button)

 

        btn.FlatStyle = FlatStyle.Flat

        btn.FlatAppearance.BorderSize = 0

        btn.BackColor = Color.Red

        btn.ForeColor = Color.White

        btn.Cursor = Cursors.Hand

        btn.Font = New Font("Century Gothic", 14)

 

        Dim Raduis As New Drawing2D.GraphicsPath

 

        Raduis.StartFigure()

        'appends an elliptical arc to the current figure

        'left corner top

        Raduis.AddArc(New Rectangle(0, 0, 20, 20), 180, 90)

        'appends a line segment to the current figure

        Raduis.AddLine(10, 0, btn.Width - 20, 0)

        'appends an elliptical arc to the current figure

        'right corner top

        Raduis.AddArc(New Rectangle(btn.Width - 20, 0, 20, 20), -90, 90)

        'appends a line segment to the current figure

        Raduis.AddLine(btnRound.Width, 20, btn.Width, btn.Height - 10)

        'appends an elliptical arc to the current figure 

        'right corner buttom

        Raduis.AddArc(New Rectangle(btn.Width - 25, btn.Height - 25, 25, 25), 0, 90)

        'appends a line segment to the current figure

        'left corner bottom

        Raduis.AddLine(btn.Width - 10, btn.Width, 20, btn.Height)

        'appends an elliptical arc to the current figure

        Raduis.AddArc(New Rectangle(0, btn.Height - 20, 20, 20), 90, 90)

        'Close the current figure and start a new one.

        Raduis.CloseFigure()

        'set the window associated with the control

        btnRound.Region = New Region(Raduis)

    End Sub