Roda certo: aparecimento e (desap.) do mouse. Mas.

O codigo abaixo funciona certinho:

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

Private Sub Cmdcursor_Click(Index As Integer)
Select Case Index
Case 0
    Call ShowCursor(False)
    Cmdcursor(0).Enabled = False
    Cmdcursor(1).Enabled = True
    Cmdcursor(1).SetFocus
Case 1
    Call ShowCursor(True)
    Cmdcursor(1).Enabled = False
    Cmdcursor(0).Enabled = True
    Cmdcursor(0).SetFocus
End Select
End Sub

Só que percebi uma deficiencia. Apesar de o mouse nao aparecer, os eventos dele continua funcionando como o click.

Como faço para tirar inibi-lo totalmente, só qdo ele aparecer é que seus eventos devem voltar ao normal.

Valeu.