SaveLayers example for Visual Basic

' Save all the extra bitmaps in the bitmap list as layers
LEAD1.SaveLayers = True
For i = 1 to LEAD1.BitmapListCount - 1
   ' reset the layer info so all the layers are saved from 0,0 offset
   LEAD1.LayerLeft(i) = 0
   LEAD1.LayerTop(i) = 0
   LEAD1.LayerBlendModeKey(i) = "dark"
   LEAD1.LayerClipping(i) = 0
   LEAD1.LayerOpacity(i) = 40
   LEAD1.LayerMaskBitmap(i) = 0
Next
' set the active bitmap to be the first in the list
LEAD1.Save "c:\temp\layers.psd", FILE_PSD, 0, 0, SAVE_OVERWRITE