<StructLayout(LayoutKind.Sequential)> _
   Private Structure CURSORINFO
      Public cbSize As Integer
      Public flags As Integer
      Public hCursor As IntPtr
      Public ptScreenPos As Point
   End Structure
 
   <DllImport("user32.dll")> _
   Private Shared Function GetCursorInfo(<Out()> ByRef pci As CURSORINFO) As _
   Boolean
   End Function
 
   <DllImport("user32.dll")> _
      Private Shared Function CopyIcon(ByVal hIcon As IntPtr) As IntPtr
   End Function
 
   <DllImport("user32.dll")> _
   Private Shared Function DestroyIcon(ByVal hIcon As IntPtr) As Boolean
   End Function
 
   Private Sub Button1_Click(ByVal sender As System.Object, _
                             ByVal e As System.EventArgs) Handles Button1.Click
 
      Dim curInfo As New CURSORINFO
      curInfo.cbSize = Marshal.SizeOf(curInfo)
 
      If GetCursorInfo(curInfo) Then
         Dim hicon As IntPtr = CopyIcon(curInfo.hCursor)
         Dim ic As Icon = Icon.FromHandle(hicon)
 
         PictureBox1.Image = ic.ToBitmap
         DestroyIcon(hicon)
      End If
   End Sub