Функция GetIconInfo

Declare Function GetIconInfo Lib "user32" (ByVal hIcon As Long, picoinfo As ICONINFO) As Long

GetIconInfo получает информацию о значке или курсоре.

hIcon

Дескриптор значка или курсора. Для получения информации о стандартных значках или курсорах используйте следующие значения:

Value	Meaning
IDC_APPSTARTING	Standard arrow and small hourglass cursor.
IDC_ARROW	Standard arrow cursor.
IDC_CROSS	Crosshair cursor.
IDC_HAND	Windows 2000 or later: Hand cursor.
IDC_HELP	Arrow and question mark cursor.
IDC_IBEAM	I-beam cursor.
IDC_NO	Slashed circle cursor.
IDC_SIZEALL	Four-pointed arrow cursor pointing north, south, east, and west.
IDC_SIZENESW	Double-pointed arrow cursor pointing northeast and southwest.
IDC_SIZENS	Double-pointed arrow cursor pointing north and south.
IDC_SIZENWSE	Double-pointed arrow cursor pointing northwest and southeast.
IDC_SIZEWE	Double-pointed arrow cursor pointing west and east.
IDC_UPARROW	Vertical arrow cursor.
IDC_WAIT	Hourglass cursor.
IDI_APPLICATION	Application icon.
IDI_ASTERISK	Asterisk icon.
IDI_EXCLAMATION	Exclamation point icon.
IDI_HAND	Stop sign icon.
IDI_QUESTION	Question-mark icon.
IDI_WINLOGO	Windows logo icon.

picoinfo

Структура ICONINFO, заполняемая информацией о значке или курсоре

Пример

' Поместите на форме PictureBox и загрузите в него курсор

Dim icoinfo As ICONINFO
GetIconInfo Picture1.Picture, icoinfo
' Получаем координаты активной точки
Print icoinfo.xHotspot
Print icoinfo.yHotspot