[albertovv]

Hey guys well I got to the point were I can click on my label and it will open lotus so I can send an email however I want the mouse pointer to change to a hand with the index finger pointing when it goes over my label.

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
'email sent working perfectly
Private Const SW_SHOWNORMAL = 1

Private Sub lblSendMeMail_Click()

Dim MailMe As String
MailMe = "mailto:" & lblSendMeMail.Caption
ShellExecute 0&, "open", MailMe, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

'Pointer change not working

Private Sub lblSendMeMail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblSendMeMail.MouseIcon = LoadPicture("C:\Windows\Cursors\hmove.cur")
    lblSendMeMail.MousePointer = vbHourGlass
End Sub

Any help is much appreciated

[FungalMonkey]

I believe you're 99% of the way there!

Change the following

    lblSendMeMail.MousePointer = vbHourGlass 

to

    lblSendMeMail.MousePointer = vbCustom 

(The VB Constant '99')

and that should be that..

Hope This Helps..

FungalMonkey