Hola si la hay, digamos vos queres mandar click del mouse...aca te dejo un ejemplo...

Option Explicit
Private Declare Function SetCursorPos Lib "USER32" (ByVal X As Long, ByVal Y As Long) As Long
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
 
Public Sub MouseLeftClick(ByVal PosX As Long, ByVal PosY As Long)
Call mouse_event(MOUSEEVENTF_LEFTDOWN, PosX, PosY, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, PosX, PosY, 0, 0)
End Sub
 
Private Sub Form_Load()
SetCursorPos 50, 800
Call MouseLeftClick(50, 800)
End Sub

con eso posicionas el mouse con la api SetCursorPos y despues generas un clic derecho...si tenes una resolucion de 1024x768 este ejemplo generaria un click en el boton inicio de windows....

saludos.