RefBitmapList example for Visual Basic

   ' tell LEAD1 to "steal" the bitmap list from LEAD2
   LEAD1.RefBitmapList = True
   ' move the bitmap list from LEAD2 to LEAD1
   LEAD1.BitmapList = LEAD2.BitmapList
   ' restore the default value for RefBitmapList
   LEAD1.RefBitmapList = False
   ' for safety, let LEAD2 know that its list has been emptied
   LEAD2.BitmapList = 0