Dim instance As ClientHwnd
Dim br As System.Drawing.Brush  '塗りつぶしの特性を決定するSystem.Drawing.Brush
Dim rect As System.Drawing.Rectangle	'楕円を定義する外接する四角形を表すRectangle構造体
Dim startangle As Integer	'X軸から扇形の最初の辺まで、時計回りに測定した角度(度単位)
Dim sweepangle As Integer	'startangleパラメータから扇形の2番目の辺まで、時計回りに測定した角度(度)

'Overloads
instance.FillPieClient(br, rect, startangle, sweepangle)

Dim instance As ClientHwnd
Dim br As System.Drawing.Brush  '塗りつぶしの特性を決定するSystem.Drawing.Brush
Dim x As Integer	'扇形の形状の元となる楕円を定義する外接する四角形の左上隅のX座標
Dim y As Integer	'扇形の形状の元となる楕円を定義する外接する四角形の左上隅のY座標
Dim width As Integer	'扇形の形状の元となる楕円を定義する外接する四角形の幅
Dim height As Integer	'扇形の形状の元となる楕円を定義する外接する四角形の高さ
Dim startangle As Integer	'X軸から扇形の最初の辺まで、時計回りに測定した角度(度単位)
Dim sweepangle As Integer	'startangleパラメータから扇形の2番目の辺まで時計回りに測定した角度(度)

'Overloads
instance.FillPieClient(br, x, y, width, height, startangle, sweepangle)

'ClientHwndクラス FillPieClientメソッド

Imports System.Windows.Forms
Imports System.Drawing

Public Class AddIn

    Public Sub AddIn_Start()
        Dim chw As ClientHwnd = New ClientHwnd()

		Dim rect As Rectangle = New Rectangle(100,10,400,150)
        chw.FillPieClient(Brushes.GoldenRod, rect, 0, 180)

        chw.FillPieClient(Brushes.SlateBlue, 50, 100, 300, 400, 90, 135)
    End Sub

End Class