Скрыть мышь.

[--=GAMER=--]

Как скрыть мышь через программу?
Пожалуйста с примером.
Спасибо.

[Andrev]

Вот код:
Private Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)

Private Sub Command1_Click()
ShowCursor& 0 'Скрыть курсор
End Sub

Private Sub Command2_Click()
ShowCursor& 1 'Показать курсор
End Sub

Хотелось бы отметить, что:
1. Курсор мыши просто скрывается, но не исчезает. Следовательно, все события (Mouse_move, click, dbl_click и т.д.) будут выполняться. Также. будеут происходи ть всестандартные события, связанные с перемещением курсора мыши, например, анимация кнопок меню.
2. В приведенном коде нажатие на кнопку command1 скрывает курсор, а нажатие на кнопку command2 - отображает его. НО!!! Если нажать кнопку command1, то курсор скроется. Если нажать еще раз, то он не появится. но зато если после этого нажать кнопку command2 - то ничего не изменится. Ее надо нажимать столько же раз, сколько раз нажималась кнопка скрытия курсора. Поэтому рекомендую ввести какое-либо условие - если курсор скрыт, то при нажатии на command1 ничего делать не надо.
Все.
Удачи.

[HotKitten]

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
DoEvents
'block the mouse and keyboard input
BlockInput True
'wait 10 seconds before unblocking it
Sleep 10000
'unblock the mouse and keyboard input
BlockInput False
End Sub
========================================
DOS - forever