Public Shared Function GetIcon(ByVal strPath As String, ByVal selected _
         As Boolean, ByVal imageList As ImageList) As Icon
            Dim info As SHFILEINFO = New SHFILEINFO(True)
            Dim cbFileInfo As Integer = Marshal.SizeOf(info)
            Dim flags As SHGFI
            If Not selected Then
                flags = SHGFI.ICON Or SHGFI.SMALLICON
            Else
                flags = SHGFI.ICON Or SHGFI.SMALLICON Or SHGFI.OPENICON
            End If
            SHGetFileInfo(strPath, 256, info, CType(cbFileInfo, _
              System.UInt32), flags)
            Return Icon.FromHandle(info.hIcon)
        End Function

Public Shared Function GetDesktopIcon() As Icon
            Dim handlesIconLarge(1) As IntPtr
            Dim handlesIconSmall(1) As IntPtr
            Dim i As System.UInt32 = ExtractIconEx(Environment.SystemDirectory _
              + "\shell32.dll", 34, handlesIconLarge, handlesIconSmall, 1)
            Return Icon.FromHandle(handlesIconSmall(0))
        End Function