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