integer li_ItemTotal, li_ItemCount

// Get the number ( quantity) of items in the ListBox.
li_ItemTotal = lb_city.TotalItems( ) //  правильно!  10 

// Loop through all the items.
FOR li_ItemCount =  1  to li_ItemTotal 
   // Is the item selected? If so, display the text
	 IF lb_city.State(li_ItemCount) =  1  THEN  // проверка ВЫДЕЛЕНА ЛИ строка 
	MessageBox("Selected Item", &
   lb_city.text(li_ItemCount)) // извлечение выбранного пункта
// выбирает только первую из выделенных строк. Так если 
выделены  5 -ая,  7 -ая строка и  10 -ая строки,
то MessageBox выводит только  5 -ую, две остальные
не показывает, т.е. выход из FOR
С остальных строк выделение снимается.
// если только первый из n-пунктов выделен и на этом цикл заканчивается,
// а надо следующие пункты выбрать!
	
END IF
NEXT