Запись курсора и воспроизведение его движения - VB

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

Когда-то я наткнулся на пример проги, которая записывает все передвижения мыши, а потом может их воспроизвести. И вот возник момент, когда нада прога, которая не только мышь сама двигает, но и кнопки на ней нажимает. Помогите плз, где можно это посмотреть или как это писать. Заранее благодарен Nick

Решение задачи: «Запись курсора и воспроизведение его движения»

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

                            'Передвижение мыши и Click. 
Private Const MOUSEEVENTF_MOVE = &H1 
Private Const MOUSEEVENTF_ABSOLUTE = &H8000 
Private Const MOUSEEVENTF_LEFTDOWN = &H2 
Private Const MOUSEEVENTF_LEFTUP = &H4 
 
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, x, y, 0, 0 
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, x, y, 0, 0 
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, x, y, 0, 0 
 
'****
'Нажатие кнопки в любом чужом приложении, даже если Enabled=False 
Private Const WM_KILLFOCUS = &H8 
Private Const BM_SETSTATE = &HF3 
 
SendMessage Command1.hwnd, BM_SETSTATE, -1, 0 
SendMessage Command1.hwnd, WM_KILLFOCUS, 0, 0
                        