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

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

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

'Overloads
returnValue = instance.GetColor(p)

'ClientHwndクラス GetColorメソッド

Imports System.Windows.Forms

Public Class AddIn

	Private chw As ClientHwnd

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

End Class

'ClientHwndクラス GetColorメソッド

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.GetColor(p)
		If result <> -1 Then
			MessageBox.Show("&H" & result.ToString("X6"))
		Else
			MessageBox.Show("取得できませんでした")
		End If
    End Sub

End Class