Dim instance As ScreenHwnd
Dim returnValue As System.Drawing.Point

returnValue = instance.mPosition()

'ScreenHwndクラス mPositionメソッド

Imports System.Windows.Forms

Public Class AddIn

	Public Sub AddIn_Start()
		Dim stdf As StdFunc = New StdFunc()
		Dim shw As ScreenHwnd = New ScreenHwnd()
		MessageBox.Show("マウスを任意位置へ移動して下さい。2秒後にその位置を表示します。")
		stdf.WaitSec(2)
		Dim p As System.Drawing.Point = shw.mPosition()
		MessageBox.Show("マウスポインタ位置: " & p.X.ToString & "," & p.Y.ToString)
	End Sub

End Class