Как программно поставить курсор в заданном месте экрана и симитировать клик? - VB

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

Здравствуйте. Как на VB программно установить курсор мыши в заданное место на экране (на всём экране, а не на форме VB) и симитировать в этом месте одиночный клик левой кнопкой мыши? За раннее благодарю.

Решение задачи: «Как программно поставить курсор в заданном месте экрана и симитировать клик?»

textual
                            Листинг программы 
                        

                            Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
 
Const MOUSEEVENTF_MIDDLEDOWN  = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
 
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
 
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) 'нажатие
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) 'отжатие
                        