Как изменить курсор мышки - VB

Формулировка задачи:

Добрый день! я конечно не знаток бэйсика но сейчас приходится в скором темпе его изучать. И в связи с производственной необходимостью возник вопрос... Мне нужно отследить изменение курсора мышки вне формы. То есть изменение курсора когда форма сама свернута... по всей видимости должно быть что-то типа:

                    Листинг программы
                
option explicit 
dim a 
 
Private Sub Form_Load() 
a = screen.mousepointer 
End Sub 
 
Private Sub Timer1_Timer() 
if a <> screen.mousePointer then 
msgbox "Change" 
end if

Но чего-то не работает... Подскажите кто чем может)

Решение задачи: «Как изменить курсор мышки»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Declare Function CopyCursor Lib "user32" Alias "CopyIcon" (ByVal hcur As Long) As Long
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpMyFileName As String) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private NewCur, OldCur As Long
Dim a
 
Private Sub Form_Load()
NewCur = LoadCursorFromFile("c:\banana.ani")
OldCur = GetCursor()
OldCur = CopyCursor(OldCur)
SetSystemCursor NewCur, 32512
a = GetCursor()
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
If OldCur <> 0 Then SetSystemCursor OldCur, 32512
End Sub
 
Private Sub Timer1_Timer()
If GetCursor <> a Then MsgBox "'Change"
End Sub