Retirar efeito do mouse

Bom dia a todos os amigos e mestres.
Baixei um exemplo do mestre JPaulo Agendamento Alarme achei simplesmente perfeito e irá me ajudar muito no meu dia-a-dia porém, gostaria de saber se existe algum código vba para que não fique aparecendo a ampulheta a cada ciclo do timer no form.

Desde já agradeço.

Cole isto num modulo e salve;

Código:

Option Explicit

Dim LbTime As Integer
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Sub TornaCursorInvisivel()
    Call ShowCursor(False)
End Sub

Sub TornaCursorVisivel()
    If LbTime = 0 Then
        Call ShowCursor(True)
        Exit Sub
    End If
End Sub


Ao abrir do formulario;

Private Sub Form_Open(Cancel As Integer)
'ao abrir torna o cursor invisivel
   Call TornaCursorInvisivel
End Sub

Ao fechar o formulario;

Private Sub Form_Close()
'ao fechar torna o cursor visivel
   Call TornaCursorVisivel
End Sub

Olá JPaulo boa tarde.
Esta função irá tornar o cursor completamente invisível correto? No entanto gostaria apenas que desativasse o efeito do mouse "Ocupado" pois, estou a utilizar seu programa dentro do meu e preciso do cursor para executar outras funções.

Desde já agradecido.

DoCmd.HourGlass False

JPaulo em qual evento e form?