revert to VB and update to new project file format

Pilz.Win32/Internals/IconExtractor.vb

@@ -0,0 +1,31 @@
+Imports System.Drawing
+Imports System.Runtime.InteropServices
+Imports Pilz.Win32.Native
+
+Namespace Internals
+
+    Public Class IconExtractor
+
+        ''' <summary>
+        ''' Extrahiert das Icon aus einer Datei oder aus einem Ordner.
+        ''' </summary>
+        ''' <param name="FilePath">Hier übergeben Sie den Pfad der Datei von dem das Icon extrahiert werden soll.</param>
+        ''' <param name="Small">Bei übergabe von true wird ein kleines und bei false ein großes Icon zurück gegeben.</param>
+        Public Shared Function ExtractIcon(FilePath As String, Small As Boolean) As Icon
+            Dim icon As Icon
+            Dim shinfo As New SHFILEINFO
+
+            LibShell32.SHGetFileInfo(FilePath, 0, shinfo, Math.Truncate(Marshal.SizeOf(shinfo)), SHFILEINFO.SHGFI_ICON Or If(Small, SHFILEINFO.SHGFI_SMALLICON, SHFILEINFO.SHGFI_LARGEICON))
+
+            Try
+                icon = Icon.FromHandle(shinfo.hIcon)
+            Catch ex As Exception
+                icon = Nothing
+            End Try
+
+            Return icon
+        End Function
+
+    End Class
+
+End Namespace