Is there a way to bind a mouse click to a key press?

[xolara]

to move the mouse

Code:

Cursor.Position = New Point(MouseposX, MouseposY)

mouse click

Code:

Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    Public Const MOUSEEVENTF_LEFTUP = &H4
    Public Const MOUSEEVENTF_MIDDLEDOWN = &H20
    Public Const MOUSEEVENTF_MIDDLEUP = &H40
    Public Const MOUSEEVENTF_RIGHTDOWN = &H8
    Public Const MOUSEEVENTF_RIGHTUP = &H10
    Public Const MOUSEEVENTF_MOVE = &H1
  mouse_event(mouseclickup = 0, 0, 0, 0, 0)
        mouse_event(mouseclickdown = 0, 0, 0, 0, 0)
Private Const mouseclickup = 4
    Private Const mouseclickdown = 2