Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen		'線の色、幅、およびスタイルを決定する
Dim pts As System.Drawing.Point()	'スプラインを定義するPoint構造体の配列

instance.DrawClosedCurveClient(pen, pts)

'ClientHwndクラス DrawClosedCurveClientメソッド

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.RoyalBlue
		Dim pts As point() = New Point() { _
			 New Point(50, 30) _
			,New Point(90, 200) _
			,New Point(250, 10) _
			,New Point(300, 80) _
			,New Point(400, 10) _
			,New Point(450, 200) _
			,New Point(120, 300) _
			,New Point(300, 50) _
			,New Point(60, 80) _
		}
        chw.DrawClosedCurveClient(pen, pts)
    End Sub

End Class