How do I capture the mouse cursor?

Can anyone tell me how to capture an image of the mouse cursor to place in a picturebox or save as a file?

If you know how please reply to this message.

Thanks

Private Declare Function GetCursor Lib "user32" () As Long
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 sub Form_load()
DrawIcon Picture1.hdc, 0, 0, GetCursor()
savepicture Picture1.image,"file.bmp"
end sub

this should help