Listbox is collection

Avant de lui faire des choses horribles, j’ai besoin d’identifier qu’une listbox est bien de type collection. J’ai pondu ça :
<code 4D>
$type_l:=Type(OBJET Lire pointeur(Objet nommé;$nomListbox_t)->)
LISTBOX LIRE TABLE SOURCE(*;$nomListbox_t;$table_l)
ASSERT(($type_l=9) & ($table_l=-1);" $1 not a collection listbox “+$nomLB_t) //9=entier long
ASSERT($LB_c#Null;”$2 Null collection "+$nomLB_t)
</code 4D>
Il n’y a pas mieux ?