genvej-til-hjemmeside cursor

Jeg har lavet en label, under click har følgende kode:
shell("start www.eksperten.dk")
Jeg har også lavet forecolor på labelen blå. Jeg ved godt at man kan vælge cursor under mousepointer, men den der hånd er der ikke.

Find et icon som ligner hånden og henvis til den, her er et eksempel:

Label1.MouseIcon = "C:\HÅND.ICO"

Og fortæl at du vil bruge dit eget icon, sådan her:

Label1.MousePointer = 99 'Det samme som Custum

shell("Start www.eksperten.dk") virker kun i Win95 og 98

Lav et modul med følgende kode istedet for at bruge Shell(start)

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Public Function StartFil(ByVal Filnavn As String, Optional ByVal HwndNR = 0, Optional ByVal Parameter As String, Optional ByVal Funk As String = "Open", Optional ByVal Kommando As Long = 1, Optional ByVal SubPath As String) As Boolean
    Dim ret As Long
    If Not Dir(FilNavn) > "" Then
        MsgBox "Filen " & FilNavn & " findes ikke og kan derfor ikke startes!", vbCritical, "Fejl!"
        StartFil = False
        Exit Function '
    End If
    If Not SubPath > "" Then SubPath = BibApp()
    ret = ShellExecute(HwndNR, Funk, Filnavn, Parameter, SubPath, Kommando)
        'Check om det lykkes
    If ret > 32 Then
        StartFil = True
    Else
        StartFil = False
    End If
End Function

Bruges sådan:
Sub Label1_Click
    StartFil "http://www.eksperten.dk", Me.hwnd
end sub

Hvor finder jeg hånd iconet? Kan jeg downloade det et eller andet sted?

Prøv at bruge Søgefunctionen i Windows og søg efter *.ico, det skulle da være mærkeligt hvis du ikke havde en der ligner!!!

Eller *.cur

Eller giv mig din mail adresse og jeg kan sende dig en zip fil!

Jeg har lgt zip filen på adressen:
http://www.bkp.dk/hånd.zip, jeg håber du kan bruge en af dem, jeg har ikke andre hænder!!
:-)