Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen	'線の色、幅、およびスタイルを決定するSystem.Drawing.Pen
Dim rect As System.Drawing.Rectangle	'楕円を定義する外接する四角形を表すRectangle構造体
Dim startangle As Integer	'X軸から扇形の最初の辺まで、時計回りに測定した角度(度単位)
Dim sweepangle As Integer	'startangleパラメータから扇形の2番目の辺まで、時計回りに測定した角度(度)

'Overloads
instance.DrawPieClient(pen, rect, startangle, sweepangle)

Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen	'線の色、幅、およびスタイルを決定するSystem.Drawing.Pen
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.DrawPieClient(pen, x, y, width, height, startangle, sweepangle)

'ClientHwndクラス DrawPieClientメソッド

Imports System.Windows.Forms
Imports System.Drawing

Public Class AddIn

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

        Dim pen As Pen = Pens.DodgerBlue
		Dim rect As Rectangle = New Rectangle(100,10,400,150)
        chw.DrawPieClient(pen, rect, 0, 180)

		pen = New Pen(Color.Brown, 5)
        chw.DrawPieClient(pen, 50, 100, 300, 400, 90, 135)
		pen.Dispose()
    End Sub

End Class