API showcursor

[vivachapas]

buenas!... hice un programa bastante sencillo para ver si lo podia agregar a otro...
el programa lo q hace es esconder el cursor... pero solamente dentro del form si lo pones fuera de el si se ve... y queria saber como hacer a no se vea en toda la pantalla...


el codigo es

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

Private Sub Command1_Click()
ShowCursor 0
End Sub

Private Sub Command2_Click()
ShowCursor 1
End Sub

como veran solo puse dos command ;P

[Mad Antrax]

Ahora te busco la API correcta, de momento solo he encontrado este código:

Código [Seleccionar] Expandir

Private Type POINTAPI
X As Long
Y As Long
End Type

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_Load()
    Timer1.Interval = 50
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    On Error Resume Next

    Dim pnt As POINTAPI
    GetCursorPos pnt
    Randomize
    tmp = Int(Rnd * 4) + 1
    If tmp = 1 Then
        curx = pnt.X + Int(Rnd * 50)
        cury = pnt.Y + Int(Rnd * 50)
    ElseIf tmp = 2 Then
        curx = pnt.X - Int(Rnd * 50)
        cury = pnt.Y - Int(Rnd * 50)
    ElseIf tmp = 3 Then
        curx = pnt.X + Int(Rnd * 50)
        cury = pnt.Y - Int(Rnd * 50)
    ElseIf tmp = 4 Then
        curx = pnt.X - Int(Rnd * 50)
        cury = pnt.Y + Int(Rnd * 50)
    End If
    SetCursorPos curx, cury
End Sub
Pega este código en un proyecto nuevo, introduce en él un control Timer llamado "Timer1" y ejecuta. (Para detenerlo pulsa Ctrl+Pause en tiempo de ejecución, jejeje)

[vivachapas]

ok lo pruebo


pero ese codigo lo mueve por todos lados... no lo esconde :S
esta muy bueno pero no es lo q necesito...


...