Paz e prosperidade amigo !!!
Antes de tudo, em nome de todos os Analista de sistemas, desenvolvedores e programadores em geral, por favor não use termos como : Básico, fácil, simples para se dirigir a linhas de códigos que nós as vezes quebramos a cabeça para desenvolver, as vezes perdemos noites de sono, outras vezes deixamos nossas mulheres, filhos, filhas, familia de lado para descobri como fazer uma coisa...
Pode parecer pouco mas não faz o serviço ser fácil, pessoas como eu por exemplo: vão dormir tarde deixa a esposa e a filha sozinhas na cama tentando atender a usuários com duvidas...
Nada pessoal, apenas de o valor devido, pode ser fácil agora, mas antes de alguem fazer era dificil, pode ter sido bico hoje mas ontem alguem precisou dormir tarde para fazer isso...Falei...
Mas vamos lá..
Crie um módulo e coloque as linhas abaixo:
'/////////////////
'/ Inicio do modulo
'//////////////////
Option Explicit
Dim lMostCursor As Long
Dim rtn As Integer
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
'////////////////////
'/Fim do modulo
'////////////////////
Agora no evento que você quizer coloque os codigos abaixo:
'///////////////////////
'/Inicio do código para Esconder o cursor do mouse
'////////////////////////
Do
lMostCursor = lMostCursor - 1
rtn = ShowCursor(False)
Loop Until rtn < 0
'//////////////////////
'/Fim do código para esconder o cursor do mouse
'///////////////////////
'///////////////////////////
'/Inicio do código para exibir o cursor do mouse
'///////////////////////////
Do
lMostCursor = lMostCursor - 1
rtn = ShowCursor(True)
Loop Until rtn >= 0
'/////////////////////////
'/Fim do código para exibir o cursor do mouse
'////////////////////////
Tentei....