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

instance.DrawLinesClient(pen, pts)

'ClientHwndクラス DrawLinesClientメソッド

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
		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) _ 
		}
        chw.DrawLinesClient(pen, pts)
    End Sub

End Class