Создать свой курсор с прозрачным фоном

Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileW" (ByVal lpsz As Long) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
 
Private Const WM_SETCURSOR As Long = &H20
 
Dim hCursor As Long
Dim WithEvents subPic As clsTrickSubclass
 
Private Sub Form_Load()
    Set subPic = New clsTrickSubclass
    subPic.Hook picTest.hwnd
    hCursor = LoadCursorFromFile(StrPtr(App.Path & "\Select.cur"))
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    DestroyCursor hCursor
End Sub
 
Private Sub subPic_WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long, Ret As Long, DefCall As Boolean)
    Select Case Msg
    Case WM_SETCURSOR: SetCursor hCursor
    Case Else: DefCall = True
    End Select
End Sub

subPic.Hook Me.hwnd

Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileW" (ByVal lpsz As Long) As Long
Private Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As Any, RefIID As Any, ByVal fPictureOwnsHandle As Long, IPic As Object) As Long
 
Private Sub Form_Load()
    Dim picPtr  As StdPicture
    
    Set picPtr = VBLoadCursor(App.Path & "\Select.cur")
    
    Set picTest(0).MouseIcon = picPtr
    Set picTest(1).MouseIcon = picPtr
    
End Sub
 
Private Function VBLoadCursor(FileName As String) As StdPicture
    Dim hCursor As Long
    Dim IID(3)  As Long
    Dim pic(4)  As Long
    
    hCursor = LoadCursorFromFile(StrPtr(FileName))
    
    IID(0) = &H20400:   IID(2) = &HC0:          IID(3) = &H46000000
    pic(0) = 20:        pic(1) = vbPicTypeIcon: pic(2) = hCursor
    
    OleCreatePictureIndirect pic(0), IID(0), 1, VBLoadCursor
    
End Function