agendando um compromisso e o mouse está piscando

olá
estou utilizando a agenda do João Paulo (excelente agenda) no access 2007 e estou o seguinte problema:
agendando um compromisso e o mouse está piscando
encontrei um caso idêntico, no link abaixo:
https://www.maximoaccess.com/t16206-resolvidocriar-relogio-em-formulario-access-2013
fiz como o Jpaulo sugeriu criei a função:
Public Sub MudaPonteiroMouse()
Dim MousePointerState As Variant
MousePointerState = Screen.MousePointer
'0 é o valor padrão do Access
'1 é o valor do ponteiro em forma de seta
'11 é o valor do ponteiro, como ocupado

If MousePointerState = 0 Then
Screen.MousePointer = 1
End If

If MousePointerState = 11 Then
Screen.MousePointer = 1
End If
End Sub

no entanto, ainda continuo com o problema.


agendando um compromisso e o mouse está piscando