dd

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