Graphics - Rounded Corners & Drawing [Resolved]

[RobDog888]

Ok, I got that to draw but how would I clear the square edges? I just need to
create a rectangle with the top two corners rounded and then fill it will a
gradient (I can do the fill part already). The background will be transparent
by default so when I draw the region and fill it the corners will be gone
already if the rectangle is rounded on top only.

This is the area that I need to convert to a region, I think, so it can be filled.

Function BorderRect() As Rectangle
        Dim rec As Rectangle = Me.cmdClose.ClientRectangle
        Return New Rectangle(1, 1, rec.Width - 3, rec.Height - 3)
    End Function
 
    Private Sub DrawRoundedButtons(ByVal g As Graphics, ByVal p As Pen, ByVal rec As Rectangle, ByVal size As Size)
        Dim oldSmoothingMode As SmoothingMode = g.SmoothingMode
        g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
        'Top line
        g.DrawLine(p, rec.Left + size.Width \ 2, rec.Top, rec.Right - size.Width \ 2, rec.Top)
        'Right top corner
        g.DrawArc(p, rec.Right - size.Width, rec.Top, size.Width, size.Height, 270, 90)
        'Right line 
        g.DrawLine(p, rec.Right, rec.Top + size.Height \ 2, rec.Right, rec.Bottom)
        'Bottom line 
        g.DrawLine(p, rec.Right, rec.Bottom, rec.Left, rec.Bottom)
        'Left line 
        g.DrawLine(p, rec.Left, rec.Bottom, rec.Left, rec.Top + size.Height \ 2)
        'Left top corner
        g.DrawArc(p, rec.Left, rec.Top, size.Width, size.Height, 180, 90)
        g.SmoothingMode = oldSmoothingMode
    End Sub
 
    Private Sub Button1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles cmdClose.Paint
        DrawRoundedButtons(e.Graphics, New Pen(Color.Black), BorderRect, New Size(16, 16))
    End Sub

Thanks