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