Imports Leadtools.WinForms
Imports Leadtools
Imports Leadtools.Codecs
''' 
Private Sub SelectImageListItem(ByVal imageList As RasterImageList, ByVal itemIndex As Integer)
   ' Loop through all the items in the list
   Dim i As Integer = 0
   Do While i < imageList.Items.Count
      Dim item As RasterImageListItem = imageList.Items(i)
      ' If this is not out item and is selected, de-select it
      If i <> itemIndex AndAlso item.Selected Then
         item.Selected = False
         ' re-paint only this item
         item.Invalidate()
      End If
      ' If this is our item and is not selected already, select it
      If i = itemIndex AndAlso (Not item.Selected) Then
         item.Selected = True
         ' re-paint only this item
         item.Invalidate()
      End If
      i += 1
   Loop
End Sub
             
   
     
            using Leadtools.WinForms;
using Leadtools;
using Leadtools.Codecs;
/// 
private void SelectImageListItem(RasterImageList imageList, int itemIndex)
{
   // Loop through all the items in the list
   for (int i = 0; i < imageList.Items.Count; i++)
   {
      RasterImageListItem item = imageList.Items[i];
      // If this is not out item and is selected, de-select it
      if (i != itemIndex && item.Selected)
      {
         item.Selected = false;
         // re-paint only this item
         item.Invalidate();
      }
      // If this is our item and is not selected already, select it
      if (i == itemIndex && !item.Selected)
      {
         item.Selected = true;
         // re-paint only this item
         item.Invalidate();
      }
   }
}