Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen	'線の色、幅、およびスタイルを決定する
Dim rect As System.Drawing.Rectangle	'楕円の境界を定義するRectangle構造体
Dim startangle As Integer	'X軸から円弧の開始点まで、時計回りに測定した角度(度単位)
Dim sweepangle As Integer	'startangleパラメータから円弧の終了点まで時計回りに測定した角度(度単位)

instance.DrawArcClient(pen, rect, startangle, sweepangle)

'ClientHwndクラス DrawArcClientメソッド

Imports System.Windows.Forms
Imports System.Drawing

Public Class AddIn

    Private chw As ClientHwnd

    Public Sub AddIn_Start()
        chw = New ClientHwnd()
        Dim pen As Pen = Pens.RoyalBlue
        Dim rect As Rectangle = New Rectangle(40, 30, 500, 200)
        Dim startangle As Integer = 20
        Dim sweepangle As Integer = 200
        chw.DrawArcClient(pen, rect, startangle, sweepangle)

        pen = New Pen(Color.OrangeRed, 4)
        rect = New Rectangle(50, 130, 400, 200)
        startangle = 180
        sweepangle = 180
        chw.DrawArcClient(pen, rect, startangle, sweepangle)
        pen.Dispose()
		chw = Nothing
    End Sub

End Class