'オブジェクトウインドウ座標x,yで示されるオブジェクトウインドウ内の位置の色を取得します
Dim instance As ClientHwnd
Dim x As Integer
Dim y As Integer
Dim returnValue As Integer

'Overloads
returnValue = instance.GetColorClient(x, y)

'オブジェクトウインドウ座標System.Drawing.Point構造体で示される
'オブジェクトウインドウ内の位置の色を取得します
Dim instance As ClientHwnd
Dim p As System.Drawing.Point
Dim returnValue As Integer

'Overloads
returnValue = instance.GetColorClient(p)

'ClientHwndクラス GetColorClientメソッド

Imports System.Windows.Forms

Public Class AddIn

	Private chw As ClientHwnd

	Public Sub New()
		chw = New ClientHwnd()
		Dim result As Integer = chw.GetColorClient(100,50)
		If result <> -1 Then
			MessageBox.Show("&H" & result.ToString("X6"))
		Else
			MessageBox.Show("取得できませんでした")
		End If
	End Sub

End Class

'ClientHwndクラス GetColorClientメソッド

Imports System.Windows.Forms

Public Class AddIn

    Private chw As ClientHwnd

    Public Sub New()
        chw = New ClientHwnd()
		Dim p As System.Drawing.Point = New System.Drawing.Point(100,50)
		Dim result As Integer = chw.GetColorClient(p)
		If result <> -1 Then
			MessageBox.Show("&H" & result.ToString("X6"))
		Else
			MessageBox.Show("取得できませんでした")
		End If
    End Sub

End Class