Acciones Con El Mouse

[ErIc DrAvEn]

Alguien Me Puede Ayudar. xP Kiero Hacer Ke El Mouse Desaparesca Estoy Haciendolo Asi
Ocultar y mostrar el puntero del ratón:


'En La Form:

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

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


'En Un Módulo:

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


'Asi Logro Ocultar El Mouse Pero Solo En La Form Y Lo Que Quiero Es Ocultarlo Fuera Dela Form En Toda La Pantalla Que No Se Mire xP Espeo Y Alguien Me Pueda Ayudar *-)