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.