Hola, espero que esto te sirva (adjunto el cursor):
Pincha aquí para descargar el cursor.
Código [Seleccionar]
Private Sub Form_Load()
'Tan solo tienes que cargar harrow.cur en MouseIcon de las propiedades
'del label.
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.MousePointer = 0
Label1.FontUnderline = False
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.FontUnderline = True
Label1.MousePointer = 99
End SubPincha aquí para descargar el cursor.
, podríamos intercambiar cosas y/o ayudarnos, si estás interesado dejame un privado o escribe aquí, si encuentro algo para lo que quieres hacer te aviso. Un saludo,