Item example for Visual Basic

   Dim LEADRasItem As LEADRasImageListItem
   Dim nCount As Long
   LEADImgList1.SelectAll False
   'get width of 2nd image
   LEADRaster1.Bitmap = LEADImgList1.Item (2).Bitmap
   MsgBox "width of item 2 =" & Str(LEADRaster1.BitmapWidth)
   'set the 4th and 6th items as selected
   LEADImgList1.Item (3).Selected = True
   LEADImgList1.Item (5).Selected = True
   'now, count the selected items
   nCount = 0
   For Each LEADRasItem In LEADImgList1
      If LEADRasItem.Selected Then nCount = nCount + 1
   Next
   MsgBox CStr(nCount) & " Items were selected!"