Change Mouse Pointer 1

[orna]

Is it possible to change the mouse pointer to an icon i choose?

TIA

 

[Remou]

Yes.

Unfortunately, I have been using this for some time and have lost the name of the originator.

Public Declare Function LoadCursor Lib "user32" Alias _
    "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Public Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Public Const IDC_HAND = 32649

Function ChangeMouseToHand()

Dim hCur As Long
    
    hCur = LoadCursor(0, IDC_HAND)
    
    If (hCur > 0) Then
        SetCursor hCur
    End If
End Function

 

[orna]

Thanks Remou
I miss something here, where do i define the icon file?

 

[Remou]

I may have misunderstood you. Do you wish to create your own icon rather than using an unusual a built-in icon?

Here is a different reference:

http://www.mvps.org/access/api/api0044.htm

 

[orna]

Correct

 

[Remou]

Use PointM from the link in say, the Mouse Move event of a control:

Private Sub Notes_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call PointM("C:\Docs\Balloons.ico")
End Sub