Quer esconder o seu mouse ?   

Para esconder o ponteiro do mouse , faça o seguinte:

1-) Inicie um  novo projeto no Visual Basic  e insira Três botões de comando : command1 ( Esconde Mouse) , Command2 ( Exibe Mouse)  e Command3 ( Sair)

2-) Insira um módulo no seu projeto e  a seguir inclua o seguinte código no módulo:

Option Explicit
Dim lMostraCursor As Long
Dim rtn As Integer

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


Public Sub EsconderMouse()

Do
  lMostraCursor = lMostraCursor - 1
  rtn = ShowCursor(False)
  Loop Until rtn < 0

End Sub


Public Sub ExibirMouse()

Do
  lMostraCursor = lMostraCursor - 1
  rtn = ShowCursor(True)
Loop Until rtn >= 0

End Sub

b-) Insira o seguinte código no formulário padrão:

Option Explicit

Private Sub Command3_Click()
   Unload Me 'sai
End Sub


Private Sub Command1_Click()
  Call EsconderMouse
End Sub


Private Sub Command2_Click()
  Call ExibirMouse
End Sub

O jeitão do formulário é o seguinte:

Basta executar e clicar em cada botão para ver o mouse sumir e reaparecer...    E , é só ...