Simbolo 'manina' quando mi posiziono con mouse su un link

Question

Buongiorno a tutti.

Ho una userform con al suo interno una LABEL denominata CALENDARIO a cui è associato un link e una immagine con il segunte codice:

Private Sub CALENDARIO_Click()

 Dim xlApp As Excel.Application

       Set xlApp = CreateObject("Excel.Application")

       With xlApp

         .Visible = True

         .WindowState = xlMinimized

         .Workbooks.Open Me.CALENDARIO.Caption

         .WindowState = xlMaximized

       End With

ExtP:  On Error Resume Next

       Set xlApp = Nothing

       On Error GoTo 0

       Exit Sub

ErrH:  MsgBox Err.Description

       Resume ExtP

End Sub

Come devo fare per far si che quando sono sulla Userform e mi posizione sull'immagine del calendario la freccia del mouse mi diventi una manina? (in modo da far capire agli utilizzatori che su quella immagine c'è un link...)

Grazie a tutti in anticipo per l'aiuto.

Massimo

Answer 1

No, non è complicato. Basta che qualcuno ti dia una mano. Anzi... una manina. Come questa:

**hand.cur**

Scaricala e salvala in un tuo disco in un percorso comodo, poi:

Answer 2

Ciao Massimo,

vedo che non ti accontenti dell'impostazione che ti avevo indicato:

MousePointer: 10 - fmMousePointerUpArrow

(Oppure non l'avevi notata?)

Answer 3

...la manina però non è nell'elenco giusto?...immagino sia un casino inserirla...

Answer 4

TROVATO!!! scusa...

Answer 5

Ti giuro che non l'avevo notata...ma dove inserisco il codice?