shell-icons

Imports System.Drawing Module Module1 Sub Main() Dim filePath As String = “C:\myfile.exe” Dim TheIcon As Icon = IconFromFilePath(filePath) If TheIcon IsNot Nothing Then ”#Save it to disk, or do whatever you want with it. Using stream As New System.IO.FileStream(“c:\myfile.ico”, IO.FileMode.CreateNew) TheIcon.Save(stream) End Using End If End Sub Public Function IconFromFilePath(filePath As String) As Icon Dim … Read more