activex控件鼠标样式问题

Question

  问题描述：
   用activex开发一个插件，插件中涉及图片的操作，在图片上画区域，这个区域可以移动，可以拉伸
我想在拉伸和移动的时候更改鼠标的样式
用了Me.MousePointer 属性，但是没有效果
同样的代码移植到窗体程序中可以实现
有没有达人碰到过这样的问题，求教了？？？

Answer 1

＋1
还可以使用ani文件来设置鼠标的自定义图形。

Answer 2

'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
'过程功能：设置屏幕鼠标图形
'功能描述：设置为动态光标
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
Public Sub subSetAniCursor(ByVal strCursorFile As String)
    Cursor = LoadCursorFromFile(strCursorFile)
    Screen.MousePointer = 2         '选一个不常用的光标类型
    Cursor2 = GetCursor
    HoldCursor = CopyIcon(Cursor2)
    '如果第二个参数用OCR_NORMAL,则会把屏幕上默认的箭头光标替换为动画光标
    Call SetSystemCursor(Cursor, OCR_CROSS)
End Sub