Imports System.Runtime.InteropServices
 
Public Class Api
    Public Declare Function SHGetFileInfo Lib "shell32.dll" Alias _
      "SHGetFileInfoA" ( _
        ByVal pszPath As String, _
        ByVal dwFileAttributes As Int32, _
        <[In](), [Out]()> ByVal psfi As SHFILEINFO, _
        ByVal cbFileInfo As Int32, _
        ByVal uFlags As SHGFI) As Int32
 
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
    Public Class SHFILEINFO
        Public hIcon As IntPtr ' : icon
        Public iIcon As Int32 ' : icondex
        Public dwAttributes As Int32 ' : SFGAO_ flags
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=MAX_PATH)> _
        Public szDisplayName As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
        Public szTypeName As String
    End Class
 
    Public Const MAX_PATH As Int32 = 260
 
    <Flags()> Public Enum SHGFI As Integer
        ADDOVERLAYS = &H20
        ATTR_SPECIFIED = &H20000
        ATTRIBUTES = &H800
        DISPLAYNAME = &H200
        EXETYPE = &H2000
        ICON = &H100
        ICONLOCATION = &H1000
        LARGEICON = &H0
        LINKOVERLAY = &H8000
        OPENICON = &H2
        OVERLAYINDEX = &H40
        PIDL = &H8
        SELECTED = &H10000
        SHELLICONSIZE = &H4
        SMALLICON = &H1
        SYSICONINDEX = &H4000
        TYPENAME = &H400
        USEFILEATTRIBUTES = &H10
    End Enum
 
 
    Public Declare Function DestroyIcon Lib "user32.dll" ( _
      ByVal hIcon As IntPtr) As Boolean
 
End Class