Starting in 4D 2004, the command Count list items has been modified so that it can return either the number of visible (expanded) list items or total number of list items.

For example:

$vlNbVisibleItems:=Count list items(hList) ` returns the number of all visible list item
$vlNbTotalItems:=Count list items(hList;*) ` returns the number of all list items (both visible and hidden)