Dim instance As ScreenHwnd

instance.mStore()

'ScreenHwndクラス mStoreメソッド

Imports System.Windows.Forms

Public Class AddIn

	Private stdf As StdFunc
	Private shw As ScreenHwnd

	Public Sub New()
		stdf = New StdFunc()
		shw = New ScreenHwnd()
		MessageBox.Show("マウスを任意位置へ移動して下さい。2秒後にその位置を記録します。")
		stdf.WaitSec(2)
		shw.mStore()
		MessageBox.Show("記録しました。実行ボタンでマウスカーソルを記録した位置へ移行します。")
	End Sub

	Public Sub AddIn_Start()
		shw.mRestore()
	End Sub

End Class