Para hacer desaparecer y aparecer el cursor del ratón pega el siguiente código en el módulo:

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

Debes crear dos botones con:

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

y

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

Es muy importante que en el caso del botón 2 que hace reaparecer el cursor, permitas seleccionarlo desde el teclado poniendo su propiedad Caption&Mostrar.