Итак, воспользовавшись функциями WIN32 API мы имеем возможность спрятать и показать курсор. Описываем функцию:
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Используем ее по нажатию на кнопку:
Private Sub Command1_Click() ShowCursor (False) For x = 1 To 10000000 Next x ShowCursor (True) End Sub
Я сделал небольшой цикл, курсор пропадет на время, а потом появится снова. В общем-то, если Вы обратили внимание, то для управления курсором Вы можете пользоваться всеми функциями WIN32 API связанными с курсором.