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

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

'ClientHwndクラス DrawRectangleClientメソッド

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

        pen = New Pen(Color.IndianRed, 5)
        chw.DrawRectangleClient(pen, 200, 100, 300, 70)
		pen.Dispose()
    End Sub

End Class