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

instance.DrawBeziersClient(pen, pts)

'ClientHwndクラス DrawBeziersClientメソッド

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(20, 30) _
			,New Point(50, 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) _
			,New Point(500, 300) _
			,New Point(100, 200) _
			,New Point(330, 30) _
		}
        chw.DrawBeziersClient(pen, pts)
    End Sub

End Class