'現在位置でマウス右ボタンクリックします
Dim instance As ScreenHwnd

'Overloads
instance.mRClick()

'マウスポインタ移動後にマウス右ボタンクリックします
Dim instance As ScreenHwnd
Dim pt As System.Drawing.Point

'Overloads
instance.mRClick(pt)

'マウスポインタ移動後にマウス右ボタンクリックします
Dim instance As ScreenHwnd
Dim x As Integer
Dim y As Integer

'Overloads
instance.mRClick(x, y)

'ScreenHwndクラス mRClickメソッド

Imports System.Windows.Forms

Public Class AddIn

	Private shw As ScreenHwnd

	Public Sub New()
		shw = New ScreenHwnd()
		MessageBox.Show("実行ボタンでX:200 Y:100の位置をマウス右クリックします。")
	End Sub

	Public Sub AddIn_Start()
		shw.mRClick(200, 100)
	End Sub

End Class