Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen		'線の色、幅、およびスタイルを決定する
Dim pt1 As System.Drawing.Point		'接続する最初の点を表すSystem.Drawing.Point
Dim pt2 As System.Drawing.Point		'接続する2番目の点を表すSystem.Drawing.Point

'Overloads
instance.DrawLineClient(pen, pt1, pt2)

Dim instance As ClientHwnd
Dim pen As System.Drawing.Pen		'線の色、幅、およびスタイルを決定する
Dim x1 As Integer	'最初の点を表すX座標
Dim y1 As Integer	'最初の点を表すY座標
Dim x2 As Integer	'2番目の点を表すX座標
Dim y2 As Integer	'2番目の点を表すY座標

'Overloads
instance.DrawLineClient(pen, x1, y1, x2, y2)

'ClientHwndクラス DrawLineClientメソッド

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.Green
        chw.DrawLineClient(pen, New Point(10,20), New Point(300,400))

        pen = New Pen(Color.Firebrick, 4)
        chw.DrawLineClient(pen, 10, 50, 500, 100)

        pen.Dispose()
    End Sub

End Class