★　マウスのボタンをプログラム上から操作する

API関数の宣言部分
　
'マウスを擬似的に動作させる(P1044)
<System.Runtime.InteropServices.DllImport("USER32.DLL")> _
Private Shared Sub mouse_event( _
    ByVal dwFlags As Integer, ByVal dx As Integer, _
    ByVal dy As Integer, ByVal cButtons As Integer, _
    ByVal dwExtraInfo As Integer)
End Sub

Private Const MOUSEEVENTF_LEFTUP As Integer = &H4      '左ボタンUP
Private Const MOUSEEVENTF_LEFTDOWN As Integer = &H2    '左ボタンDown
Private Const MOUSEEVENTF_RIGHTUP As Integer = &H10    '右ボタンUP
Private Const MOUSEEVENTF_RIGHTDOWN As Integer = &H8   '左ボタンDown

---

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'マウスカーソルを Button3 上に移動してクリックします。
    Cursor.Position = New Point(Me.Left + Button3.Left + 50, Me.Top + _
                            SystemInformation.CaptionHeight + Button3.Top + 20)
    'マウスの左ボタンを押す
    Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
    'マウスの左ボタンを離す
    Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'マウスカーソルを TextBox1 上に移動して右クリックします。
    Cursor.Position = New Point(Me.Left + TextBox1.Left + 10, Me.Top + _
                            SystemInformation.CaptionHeight + TextBox1.Top + 10)
    'マウスの右ボタンを押す
    Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
    'マウスの右ボタンを離す
    Call mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
    MessageBox.Show("マウスが Button3 上でクリックされました。")
End Sub