revert to VB and update to new project file format

Pilz.Win32/Mapped/NativeFileInfo.cs

@@ -1,21 +0,0 @@
-using global::System.Drawing;
-using global::Pilz.Win32.Native;
-
-namespace Pilz.Win32.Mapped
-{
-    public class NativeFileInfo
-    {
-        public Icon Icon { get; private set; }
-        public int SystemIconIndex { get; private set; }
-        public string Displayname { get; private set; }
-        public string Typename { get; private set; }
-
-        public NativeFileInfo(SHFILEINFO info)
-        {
-            Icon = Icon.FromHandle(info.hIcon);
-            SystemIconIndex = (int)info.iIcon;
-            Displayname = info.szDisplayName;
-            Typename = info.szTypeName;
-        }
-    }
-}

Pilz.Win32/Mapped/NativeFileInfo.vb

@@ -0,0 +1,22 @@
+Imports System.Drawing
+Imports Pilz.Win32.Native
+
+Namespace Mapped
+
+    Public Class NativeFileInfo
+
+        Public ReadOnly Property Icon As Icon
+        Public ReadOnly Property SystemIconIndex As Integer
+        Public ReadOnly Property Displayname As String
+        Public ReadOnly Property Typename As String
+
+        Public Sub New(info As SHFILEINFO)
+            Icon = Icon.FromHandle(info.hIcon)
+            SystemIconIndex = info.iIcon
+            Displayname = info.szDisplayName
+            Typename = info.szTypeName
+        End Sub
+
+    End Class
+
+End Namespace