Dim instance As ClientHwnd
Dim br As System.Drawing.Brush  '塗りつぶしの特性を決定するSystem.Drawing.Brush
Dim rect As System.Drawing.Rectangle	'描画する四角形を表すRectangle構造体

'Overloads
instance.FillRectangleClient(br, 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.FillRectangleClient(br, x, y, width, height)

'ClientHwndクラス FillRectangleClientメソッド

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(20, 70, 500, 200)
        chw.FillRectangleClient(Brushes.MediumBlue, rect)

        chw.FillRectangleClient(Brushes.DeepSkyBlue, 200, 100, 300, 70)
    End Sub

End Class