如果你的电脑是win7系统，用下面的代码就能显示tif格式
With CreateObject("WIA.ImageFile") .LoadFile "E:\a.tif" Image1.Picture = .FileData.PictureEnd With
