Узнать текущий курсор мыши (его вид)

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Sub Form_Paint()
    'Рисуем курсор на форме, но аналогично и на Picture
    DrawIcon Me.hdc, 50, 50, GetCursor
End Sub

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
 
Private Sub Command1_Click()
DrawIcon Picture1.hdc, 0, 0, GetCursor
Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
DrawIcon Picture2.hdc, 0, 0, GetCursor
Call Sravn
End Sub
 
Private Sub Sravn()
Dim x, y As Integer
For y = 1 To 150
For x = 1 To 150
If Picture1.Point(x, y) <> Picture2.Point(x, y) Then
MsgBox "CHANGE"
Picture2.Cls
Picture2.Picture = LoadPicture()
Exit Sub
End If
Next x
Next y
End Sub

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
 
Dim cr1, cr2 As Long
 
Private Sub Command1_Click()
Timer1.Enabled = True
call GetCursor
cr1 = Getcursor ()
End Sub
 
Private Sub Timer1_Timer()
call GetCursor
cr2 = GetCursor ()
if cr1<>cr2 then MsgBox "Change"
End Sub