Mouseeventf_

[Iamazn]

Is there a "MOUSEEVENTF_Click"?

Also,
How would I change this code so that it will click when I move/click my mouse wheel?

   If MOUSEEVENTF_WHEEL Then
            Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        End If

EDIT:
How would I move the mouse down? Like -10, -10 pixels? or something like that.

[i00]

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        if e.Button = Windows.Forms.MouseButtons.Middle Then
            msgbox ("Middle btn was clicked")
        End if
    End Sub

Kris

[i00]

and what do u mean by:

"How would I move the mouse down? Like -10, -10 pixels? or something like that."

Kris

[Iamazn]

and what do u mean by:

"How would I move the mouse down? Like -10, -10 pixels? or something like that."

Kris

So when I click the mouse, it will be auto moved down a tiny bit

Also, how would I change this so that it will work even if form isnt in focus

     If e.Button = Windows.Forms.MouseButtons.Left Then
            Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        End If

[Iamazn]

Sorry for Double post but when I use this code, after I click my mouse button, the 2nd click isnt sent thru.

If m.Msg = WM_HOTKEY Then
            Dim id As IntPtr = m.WParam
            Select Case (id.ToString)
                Case "9"
 If MOUSEEVENTF_LEFTDOWN Then
                        mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
                        mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
                                          End If
                             End Select
        End If
        MyBase.WndProc(m)