dd

Pilz.Win32/Native/LibShell32.vb

@@ -0,0 +1,9 @@
+Namespace Native
+
+    Public Class LibShell32
+
+        Public Declare Auto Function SHGetFileInfo Lib "shell32.dll" (ByVal pszPath As String, ByVal dwFileAttributes As UInteger, ByRef psfi As SHFILEINFO, ByVal cbSizeFileInfo As UInteger, ByVal uFlags As UInteger) As IntPtr
+
+    End Class
+
+End Namespace

Pilz.Win32/Native/SHFILEINFO.vb

@@ -2,14 +2,21 @@
 
 Namespace Native
 
-    Friend Structure SHFILEINFO
+    <StructLayout(LayoutKind.Sequential)>
+    Public Structure SHFILEINFO
+
+        Public Const SHGFI_ICON As UInteger = &H100
+        Public Const SHGFI_LARGEICON As UInteger = &H0
+        Public Const SHGFI_SMALLICON As UInteger = &H1
+
         Public hIcon As IntPtr
-        Public iIcon As Integer
+        Public iIcon As IntPtr
         Public dwAttributes As UInteger
         <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)>
         Public szDisplayName As String
         <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)>
         Public szTypeName As String
+
     End Structure
 
 End Namespace