'現在のマウスポインタ位置の色を取得します
Dim instance As ScreenHwnd
Dim returnValue As Integer

'Overloads
returnValue = instance.GetColor()

'Point構造体で表されるスクリーン座標値の色を返します
Dim instance As ScreenHwnd
Dim pt As System.Drawing.Point
Dim returnValue As Integer

'Overloads
returnValue = instance.GetColor(pt)

'x,yで表されるスクリーン座標値の色を返します
Dim instance As ScreenHwnd
Dim x As Integer
Dim y As Integer
Dim returnValue As Integer

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

'ScreenHwndクラス GetColorメソッド

Imports System.Windows.Forms

Public Class AddIn

	Private shw As ScreenHwnd
	Private stdf As StdFunc

	Public Sub New()
		shw = New ScreenHwnd()
		stdf = New StdFunc()
		MessageBox.Show("実行ボタンで2秒後にマウスポインタ位置の色を表示します")
	End Sub

	Public Sub AddIn_Start()
		stdf.WaitSec(2)
		MessageBox.Show("&H" & shw.GetColor().ToString("X6"))
	End Sub

End Class