Имитация нажатия клавиш - VB

Формулировка задачи:

Здравствуйте. Пожалуйста помогите с кодом. Нужно написать программу, что бы при нажатии "Q" нажималась ПКМ затем через долю секунда ЛКМ.

Решение задачи: «Имитация нажатия клавиш»

textual
                            Листинг программы 
                        
                            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