vb 鼠标在窗体边缘调整大小时显示自定义的ani动画图标

Question

如题   在窗体控件上可以设置  但是鼠标移动到标题栏和边框调整窗体时鼠标恢复为默认图标   怎么设置此时为自定义的ani动画样式（不同于停留在窗体上时） 

Answer 1

也就是自定义鼠标图案吧？Option Explicit
Private Const GCL_HCURSOR& = (-12)Private Declare Function SetClassLong& Lib "user32" Alias "SetClassLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)
Private Declare Function LoadCursorFromFile& Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String)Private NewCursor1 As Long
Private OldCursor1 As Long
Private NewCursor2 As Long
Private OldCursor2 As LongPrivate Sub Form_Load()
    NewCursor1 = LoadCursorFromFile(App.Path & "\1.ani")
    OldCursor1 = SetClassLong(Me.hWnd, GCL_HCURSOR, NewCursor1)
    NewCursor2 = LoadCursorFromFile(App.Path & "\2.ani")
    OldCursor2 = SetClassLong(Picture1.hWnd, GCL_HCURSOR, NewCursor2)
End SubPrivate Sub Form_Unload(Cancel As Integer)
   SetClassLong Me.hWnd, GCL_HCURSOR, OldCursor1
   SetClassLong Picture1.hWnd, GCL_HCURSOR, OldCursor2
End Sub

Answer 2

Veron_04兄的代码完成的是在不同控件上显示不同动画（已实现）   我现在想弄明白的是在窗体或控件调整大小时（默认是双向箭头←→） 也换成自定义的ani动画（且不同于其窗体或控件上的ani动画）  麻烦各位大神个支个招