Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen		'線の色、幅、およびスタイルを決定する
Dim path As System.Drawing.Drawing2D.GraphicsPath	'描画するGraphicsPathオブジェクト

instance.DrawPathClient(pen, path)

'ClientHwndクラス DrawPathClientメソッド

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.DodgerBlue

		'GraphicsPathオブジェクトの作成
		Dim path As New Drawing2D.GraphicsPath

		'新しい図形を開始する
		path.StartFigure()
		'直線を2本追加する
		path.AddLine(0, 0, 50, 50)
		path.AddLine(100, 0, 150, 50)
		'図形を閉じる
		path.CloseFigure()

		'新しい図形を開始する
		path.StartFigure()
		'直線を2本追加する
		path.AddLine(0, 60, 50, 110)
		path.AddLine(100, 60, 150, 110)

		'新しい図形を開始する
		path.StartFigure()
		'直線を追加する
		path.AddLine(100, 120, 150, 170)
		'新しい図形を開始する

		path.StartFigure()
		'直線を追加する
		path.AddLine(0, 120, 50, 170)

		'四角を2つ追加する
		path.AddRectangle(New Rectangle(160, 10, 60, 80))
		path.AddRectangle(New Rectangle(160, 100, 60, 60))

        chw.DrawPathClient(pen, path)
    End Sub

End Class