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