Cambiar el ícono del mouse en el evento MoseMove

Pablo V?uez
15 de Agosto del 2004
Necesito que en el evento MouseMove, el ícono del mouse cambie, por ejemplo al ícono de la mano. Una imagen de ícono sacada desde un archivo.
Gracias

jhon
15 de Agosto del 2004
debes cambiar las propiedades MouseIcon (eliges el archivo cur o ico) y MousePointer=99 del control

No hace falta modificar el evento mouse move

Salu2

Coscarelli
15 de Agosto del 2004
Private Sub lblMemoria_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblMemoria.ForeColor = QBColor(11) \'celeste
MousePointer = 99
End Sub


Nota :Cambiar la propiedad MouseIcon por algun icono.

tambien es necesario que cambies el puntero en el evento mouse move cuando se mueve el puntero sobre el formulario.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
\'*cambian los textos y el puntero
lblMemoria.ForeColor = &H80000012 \' negro
MousePointer = 0 \'puntero standard

End Sub


Lblmemoria= es un label (etiqueta)
La propiedad ForeColor permite cambiar el color del texto