revert to VB and update to new project file format

Pilz.Win32/Native/SHFILEINFO.vb

@@ -0,0 +1,21 @@
+Imports System.Runtime.InteropServices
+
+Namespace Native
+
+
+    <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 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