Dim instance As ClientHwnd
Dim br As System.Drawing.Brush	'塗りつぶしの特性を決定するSystem.Drawing.Brush
Dim rect As System.Drawing.Rectangle	'楕円の境界を定義するRectangle構造体

'Overloads
instance.FillEllipseClient(pen, rect)

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	'楕円を定義する外接する四角形の高さ

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

'ClientHwndクラス FillEllipseClientメソッド

Imports System.Windows.Forms
Imports System.Drawing

Public Class AddIn

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

        chw.FillEllipseClient(Brushes.OrangeRed, New Rectangle(20, 70, 500, 200))

        chw.FillEllipseClient(Brushes.RoyalBlue, 300, 100, 300, 70)
    End Sub

End Class