获取Shell使用的文件图标

imports System.DrawingModule 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 result As Icon = Nothing        Try result = Icon.ExtractAssociatedIcon(filePath)        Catch ''# swallow and return nothing. You could supply a default Icon here as well        End Try        Return result    End FunctionEnd Module