Dim instance As ClientHwnd
Dim br As System.Drawing.Brush  '塗りつぶしの特性を決定するSystem.Drawing.Brush
Dim rects As System.Drawing.Rectangle()	'塗りつぶす四角形を表すRectangle構造体の配列

instance.FillRectanglesClient(pen, rects)

'ClientHwndクラス FillRectanglesClientメソッド

Imports System.Windows.Forms
Imports System.Drawing

Public Class AddIn

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

		Dim rects As Rectangle() = New Rectangle() { _
			 New Rectangle(10, 10, 100, 50) _
			,New Rectangle(40, 50, 100, 50) _
			,New Rectangle(70, 90, 100, 50) _
			,New Rectangle(100, 130, 100, 50) _
			,New Rectangle(130, 170, 100, 50) _
		}
        chw.FillRectanglesClient(Brushes.PaleVioletRed, rects)
    End Sub

End Class