ExportBitmapList Example for Visual Basic

Option Explicit
Private Sub Export_Click()
   LEADImgList1.LoadFromFile "c:\image1.jpg", 0, 0, -1
   LEADImgList1.LoadFromFile "c:\image2.jpg", 0, 0, -1
   LEADImgList1.LoadFromFile "c:\image3.jpg", 0, 0, -1
   LEADImgList1.LoadFromFile "c:\image4.jpg", 0, 0, -1
   'Export All Items From Images List Control
   LEADImgList1.ExportBitmapList 0, LEADImgList1.Count
End Sub

Private Sub Import_Click()
   LEADImgList2.ImportBitmapList LEADImgList1.ExportedBitmapList, 0, 2, "Image1", "Imported From List1"
End Sub