【VB技巧】截取屏幕图像/片后画上鼠标位置

VB 截取屏幕图像/片后画上鼠标位置：

Type POINTAPI
    x     As Long
    y     As Long
End Type
Type ICONINFO
    fIcon As Long
    xHotspot As Long
    yHotspot As Long
    hbmMask As Long
    hbmColor As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Function GetIconInfo Lib "user32" (ByVal hIcon As Long, piconinfo As ICONINFO) As Long

Dim pic As Picture, point As POINTAPI, info As ICONINFO
Set pic = LoadResPicture(101, 2)                                                '载入光标文件
GetCursorPos point                                                              '取得鼠标的位置
GetIconInfo pic.Handle, info                                                    '取得鼠标的HotSpot
picture1.PaintPicture pic(point.x - info.xHotspot) * 15, (point.y - info.yHotspot) * 15 '描绘鼠标