Binaryworld - ButtonDown, ButtonUp, MouseClick, MouseDblClick - Simulate mouse activ ... [ VB -> Keyboard-Mouse ]

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
  ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, _
  ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

'simulate the MouseDown event

Private Sub ButtonDown(Optional ByVal Button As MouseButtonConstants = _
  vbLeftButton)
  Dim lFlag As Long
  If Button = vbLeftButton Then
    lFlag = MOUSEEVENTF_LEFTDOWN
  ElseIf Button = vbMiddleButton Then
    lFlag = MOUSEEVENTF_MIDDLEDOWN
  ElseIf Button = vbRightButton Then
    lFlag = MOUSEEVENTF_RIGHTDOWN
  End If
  mouse_event lFlag, 0, 0, 0, 0
End Sub

'simulate the MouseUp event

Private Sub ButtonUp(Optional ByVal Button As MouseButtonConstants = _
  vbLeftButton)
  Dim lFlag As Long
  If Button = vbLeftButton Then
    lFlag = MOUSEEVENTF_LEFTUP
  ElseIf Button = vbMiddleButton Then
    lFlag = MOUSEEVENTF_MIDDLEUP
  ElseIf Button = vbRightButton Then
    lFlag = MOUSEEVENTF_RIGHTUP
  End If
  mouse_event lFlag, 0, 0, 0, 0
End Sub

'simulate the MouseClick event

Private Sub ButtonClick(Optional ByVal Button As MouseButtonConstants = _
  vbLeftButton)
  ButtonDown Button
  ButtonUp Button
End Sub

'simulate the MouseDblClick event

Private Sub ButtonDblClick(Optional ByVal Button As MouseButtonConstants = _
  vbLeftButton)
  ButtonClick Button
  ButtonClick Button
End Sub