Dim instance As ClientHwnd Dim returnValue As Integer returnValue = instance.RightClient
'ClientHwndクラス RightClientプロパティ Imports System.Windows.Forms Public Class AddIn Private chw As ClientHwnd Public Sub New() chw = New ClientHwnd() MessageBox.Show(chw.RightClient.ToString) End Sub End Class