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

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

Здравствуйте) возникла такая задача, поместить текущий курсор мыши в picturebox, всё никак не пойму как это сделать. То есть чтобы на форме можно было увидеть значок текущего курсора. Можно конечно сделать скриншот экрана вместе с курсором, а потом убрать лишнее и тогда уже кинуть его в Picturebox, но на скриншоте курсора к сожалению не видно( хотя например кейлоггеры обычно делают скрин с курсором...вобщем если кто знает как это сделать буду рад помощи)

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
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