Hacer desaparecer el cursor en VB

Primero agregar en cualquier módulo lo siguiente:

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

Luego en un botón (o cualquier sitio donde se quiera hacer desaparecer el cursor) copiar el siguiente código:

Private Sub Command1_Click() 
x = ShowCursor(False) 
End Sub

Y donde se quiere volver a aparecer el cursor pegar:

Private Sub Command2_Click() 
x = ShowCursor(True) 
End Sub

x es una variable de resultado que no tiene importancia. De ser necesario declararla dentro de cada ventana para evitar que quede cargada.