Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen		'線の色、幅、およびスタイルを決定する
Dim rect As System.Drawing.Rectangle	'楕円の境界を定義するRectangle構造体

'Overloads
instance.DrawEllipseClient(pen, rect)

Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen		'線の色、幅、およびスタイルを決定する
Dim x As Integer		'楕円を定義する外接する四角形の左上隅のX座標
Dim y As Integer		'楕円を定義する外接する四角形の左上隅のY座標
Dim width As Integer	'楕円を定義する外接する四角形の幅
Dim height As Integer	'楕円を定義する外接する四角形の高さ

'Overloads
instance.DrawEllipseClient(pen, x, y, width, height)

'ClientHwndクラス DrawEllipseClientメソッド

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.DarkGoldenrod
		Dim rect As Rectangle = New Rectangle(20, 70, 500, 200)
        chw.DrawEllipseClient(pen, rect)

        pen = Pens.ForestGreen
        chw.DrawEllipseClient(pen, 200, 100, 300, 70)
    End Sub

End Class