Sub testImportOptions() ' Declare a new import options structure Dim io As New StructImportOptions With io .Mode = cdrImportFull .CombineMultilayerBitmaps = False .DetectWatermark = True .ExtractICCProfile = False .ICCFileName = "C:\Test.icc" .ImageIndex = 3 .LinkBitmapExternally = False .MaintainLayers = True .UseOPILinks = False End With ' Import the jpeg file passing the import option structure ActiveLayer.Import "C:\Test.jpg", , ioEnd Sub