在这里用到一个API函数
Public Declare Function SHGetFileInfo Lib "shell32" ( _
ByVal pszPath As String, _
ByVal dwFileAttributes As Integer, _
ByRef sfi As SHFILEINFO, _
ByVal cbsfi As Integer, _
ByVal uFlags As Integer) As Integer
'获取图标()
Dim ic2 As Icon
Dim HR_Small As Integer
Dim shfi_Small As New SHFILEINFO
HR_Small = SHGetFileInfo(strfile, 0, shfi_Small, Marshal.SizeOf(shfi_Small), SHGFI.SMALLICON Or SHGFI.ICON)
'strfile是要获取图标的文件的路径,可以是文件夹,也可以是文件.
Try