你是否尝试过使用ExtractIcon方法?该方法将返回一个IPictureDisp对象,代表ListImage项的图标。接着,一旦你提取了图片对象,就可以简单地调用SavePicture函数将其保存到磁盘上的文件中。因此,你可以使用以下类似的代码:Dim myPic As Picture Set myPic = ImageList1.ListImages(1).ExtractIcon SavePicture myPic, "C:\MyIcon.ico" '(never hardcode a path in your actual code!)