que un label siga las posiciones de un mouse?

[koopa2]

hola gente como hago para que un label siga las posiciones de lmouse en vb6 , es asi?

Código [Seleccionar] Expandir

mosemove x, y

o asi?

Código [Seleccionar] Expandir

move x, y

porque cuando poingo el primer codigo me tira error y cuando pongo el segundo sooo se muve y se dirije a la esquina del form y no se mueve mas como si ese fuera el piunto x, y

y para poner un fondo en un form pero que es fondo se mueca al mover las ruedita del mouse??


alguien sabe ?

saludos y gracias

[Robokop]

Código [Seleccionar] Expandir

Private Type POINTAPI
        X As Long
        Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim Pos As POINTAPI
GetCursorPos Pos

Label1 = Pos.X & " - " & Pos.Y


End Sub

Asi detecta y muestra la posicion cada vez que se mueve

[koopa2]

y para que un label siga las pociciones de mouse es decir que lo siga al mouse , y que al mover la ruedita del mouse se nueva el fondo del form

[Robokop]

Código [Seleccionar] Expandir

Label1.Top = x
Label1.Left = y

[Hendrix]

Es al reves....

Código [Seleccionar] Expandir

Label1.Top = y
Label1.Left = x

Y como seria para mover el kursor segun unas coordenadas que se le indiken???

Salu2

[Robokop]

Para lo del label hice un code de una forma mas facil pero no es un label si no lo imprime en el form y sigue al cursor

Código [Seleccionar] Expandir


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Cls
    PSet (X, Y )
    Print "X="; X; ":Y="; Y
End Sub


Y para moverlo

Código [Seleccionar] Expandir

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

SetCursorPos x,y
o puedes cambiar "x" y "y" por numeros