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 Sub
Pincha aquí para descargar el cursor.