Проблема с графикой и классом GraphicsPath

[AnarCky]

Мучаюсь с этим кодом.
Проблема в том, что он выдает совсем не то что надо.

Вопрос: Можно обойтись как-нить без этих средних линий, соединяющих дуги и между концами одной дуги?
Вопрос2: Если кто-нибудь знает способ более простого создания прямоугольника с закругленнами краями, большая просьба сообщить.

Код: Выделить всё

    Private Sub Form2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim GR As Graphics = Me.CreateGraphics
        Dim Put As New Drawing2D.GraphicsPath

        Put.AddArc(10, 10, 20, 20, 180, 90)
        Put.AddLine(10, 20, 10, 280)

        Put.AddArc(10, 270, 20, 20, 90, 90)
        Put.AddLine(20, 290, 280, 290)

        Put.AddArc(270, 270, 20, 20, 0, 90)
        Put.AddLine(290, 20, 290, 280)

        Put.AddArc(270, 10, 20, 20, 270, 90)
        Put.AddLine(20, 10, 280, 10)

        GR.DrawPath(Pens.Black, Put)    End Sub


[Shurrik]

Попробуй мой фрагмент
Sub RisPu(ByVal p As GraphicsPath, ByVal r As Rectangle, ByVal d0 As Integer)
p.StartFigure()
Dim ng As Single = 180
Dim d As Integer = Math.Abs(d0)
p.AddArc(r.X, r.Y, d, d, 180, 90)
p.AddArc(r.X + r.Width - d, r.Y, d, d, 270, 90)
p.AddArc(r.X + r.Width - d, r.Y + r.Height - d, d, d, 0, 90)
p.AddArc(r.X, r.Y + r.Height - d, d, d, 90, 90)
p.CloseFigure()
End Sub

[AnarCky]

Все в порядке - работает.
Спасибо!