Dim instance As ClientHwnd

instance.HwndCursor()

'ClientHwndクラス HwndCursorメソッド

Public Class AddIn

	Private chw As ClientHwnd

	Public Sub New()
		chw = New ClientHwnd()
		chw.HwndCursor()
	End Sub

End Class