Как нарисовать сектор с заливкой?

Sub DrawPieExample(ByVal e As PaintEventArgs) 
  Dim g As Graphics = e.Graphics 
  Dim largeRect As New Rectangle(20, 20, 200, 100) 
  Dim smallRect As New Rectangle(30, 25, 180, 90) 
  Dim angle As Single = 10.0F 
  For i As Integer = 0 To 8 
    g.DrawPie(Pens.DarkBlue, largeRect, angle * 4 * i, angle) 
    g.DrawPie(Pens.Black, smallRect, angle * (4 * i + 2), angle) 
  Next 
End Sub

Dim blackPen As New Pen(Color.Black, 1) ' Создаем кисть
        Dim rect As New Rectangle(20, 280, 100, 100) ' Create rectangle for ellipse.
        Dim startAngle As Single = 0.0F ' Create start and sweep angles.
        Dim sweepAngle As Single = 140.0F
        e.Graphics.DrawPie(blackPen, rect, startAngle, sweepAngle) ' Draw pie to screen.