AUTO CLICK NO TECLADO

Private Const VK_F1 = &H70
    Private Const KEYEVENTF_EXTENDEDKEY = &H1
    Private Const KEYEVENTF_KEYUP = &H2
    Private Declare Sub keybd_event Lib [Ô]user32.dll[Ô] (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

    Sub MandaTecla()
        keybd_event(VK_F1, 0, 0, 0) [ô] press F1
        keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0) [ô] solta F1
    End Sub