TKSoft-Online

Private Const IDC_HAND As Long = 32649
Private Const IDC_ARROW As Long = 32512

Private Const GCL_HCURSOR = -12

Private Declare Function LoadCursor _
    Lib "user32" _
    Alias "LoadCursorA" ( _
    ByVal hInstance As Long, _
    ByVal lpCursorName As Long) As Long

Private Declare Function SetClassLong _
    Lib "user32" _
    Alias "SetClassLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long

Dim blnIsHand As Boolean

Sub SetHandCursor()
    Dim hHandCursor As Long
    Dim R As Long

    On Error Resume Next
    If blnIsHand Then Exit Sub

    hHandCursor = LoadCursor(ByVal 0&, IDC_HAND)
    R = SetClassLong(Me.hwnd, GCL_HCURSOR, hHandCursor)
    DoEvents

    blnIsHand = True

End Sub

Sub RemoveHandCursor()
    Dim R As Long
    Dim hArrowCursor As Long

    On Error Resume Next

    If Not blnIsHand Then Exit Sub

    hArrowCursor = LoadCursor(ByVal 0&, IDC_ARROW)
    R = SetClassLong(Me.hwnd, GCL_HCURSOR, _
        hArrowCursor)
    DoEvents

    blnIsHand = False

End Sub