Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen		'線の色、幅、およびスタイルを決定する
Dim rects As System.Drawing.Rectangle()	'描画する四角形を表すRectangle構造体の配列

instance.DrawRectanglesClient(pen, rects)

'ClientHwndクラス DrawRectanglesClientメソッド

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.MediumBlue
		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.DrawRectanglesClient(pen, rects)
    End Sub

End Class