Mouse cursor

[terebi]

How do I check whether the current mouse cursor is a hand, hour-glass,arrow, e.t.c
And I mean it has to be able to check this system wide, and not only on your form.

E.g. Be able to check the status of the mouse cursor over another program

[Chris]

Juz use this very premitive way also give what you looking for...

Private Sub Form_Load()
Select Case Me.MousePointer
Case 0 'vbDefault
    MsgBox "Default type mousepointer."
Case 1 'vbArrow
    MsgBox "Arrow type mousepointer."
Case 2 'vbCrosshair
    MsgBox "Crosshair type mousepointer."
Case 3 'vbIbeam
    MsgBox "Ibeam type mousepointer."
Case 4 'vbIconPointer
    MsgBox "IconPointer type mousepointer."
Case 5 'vbSizePointer
    MsgBox "SizePointer type mousepointer."
Case 6 'vbSizeNESW
    MsgBox "SizeNESW type mousepointer."
Case 7 'vbSizeNS
    MsgBox "SizeNS type mousepointer."
Case 8 'vbSizeNWSE
    MsgBox "SizeNWSE type mousepointer."
Case 9 'vbSizeWE
    MsgBox "SizeWE type mousepointer."
Case 10 'vbUpArrow
    MsgBox "UpArrow type mousepointer."
Case 11 'vbHourglass
    MsgBox "Hourglass type mousepointer."
Case 12 'vbNoDrop
    MsgBox "NoDrop type mousepointer."
Case 13 'vbArrowHourglass
    MsgBox "Arrowhourglass type mousepointer."
Case 14 'vbArrowQuestion
    MsgBox "ArrowQuestion type mousepointer."
Case 15 'vbSizeAll
    MsgBox "SizeAll type mousepointer."
Case 99 'vbCustom
    MsgBox "Custom type mousepointer."
End Select

[terebi]

Thankyou Chris for your post, but the posted proggy listing only tells you what the mousecursor should be on the form, but when windows, changes the mouse cursor picture, it does not notify VB, so this does not help me to detect the actual state of the mouse cursor at a system wide level. Maybe I'm just using the proggy listing wrong.