Public Class ShellIcons
 
   Private Declare Auto Function ExtractIconEx Lib "shell32.dll" (ByVal _
     lpszFile As String, _
      ByVal nIconIndex As Integer, ByRef phiconLarge As IntPtr, ByRef _
      phiconSmall As IntPtr, _
      ByVal nIcons As Integer) As Integer
 
   Public Shared Function GetImageList() As ImageList
      Dim iIndex As Int16() = {3, 4, 6, 8, 9, 11, 15, 17, 31, 34, 126}
      Dim sKey As String() = {"closefolder", "openfolder", "floppy", "hdd", _
        "share", _
         "cdrom", "arbeitsplatz", "netzwerk", "papierkorb", "desktop", _
         "eigenedateien"}
      Dim shellpath As String = Environment.SystemDirectory & "\shell32.dll"
      Dim ilist = New ImageList()
      Dim sIcon As IntPtr
 
      ilist.ColorDepth = ColorDepth.Depth32Bit
 
      For x As Int16 = 0 To iIndex.Length - 1
         Dim n As Integer = ExtractIconEx(shellpath, iIndex(x), IntPtr.Zero, _
           sIcon, 1)
         ilist.Images.Add(sKey(x), Icon.FromHandle(sIcon))
      Next
 
      Return ilist
   End Function
 
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control