Создание полукруглых углов у объектов и форм

    Public Function Bordering(Control As Control, Angel_Strong As Integer)
        DrawBorder(0, 0, Angel_Strong, Angel_Strong, 1, Control)
        DrawBorder(0, Control.Height - Angel_Strong, Angel_Strong, Angel_Strong, 2, Control)
        DrawBorder(Control.Width - Angel_Strong, 0, Angel_Strong, Angel_Strong, 3, Control)
        DrawBorder(Control.Width - Angel_Strong, Control.Height - Angel_Strong, Angel_Strong, Angel_Strong, 4, Control)
    End Function
 
  Function DrawBorder(x As Integer, y As Integer, width As Integer, height As Integer, angle As Single, Control As Control)
        Dim rect As New Rectangle(x, y, width, height)
        Dim Start As Single
        Dim Turn As Single = 90.0F
        Dim rect2 As Rectangle
        Select Case angle
            Case 1
                rect2 = New Rectangle(x, y, width / 2, height / 2)
                Start = 180
            Case 2
                rect2 = New Rectangle(x, y + height / 2, width / 2, height / 2)
                Start = 90
            Case 3
                rect2 = New Rectangle(x + width / 2, y, width / 2, height / 2)
                Start = 270
            Case 4
                rect2 = New Rectangle(x + width / 2, y + height / 2, width / 2, height / 2)
                Start = 0
        End Select
        Control.CreateGraphics.FillRectangle(Brushes.Yellow, rect2)
        Control.CreateGraphics.FillPie(Brushes.Red, rect, Start, Turn)
    End Function

  Bordering(Me, 50)