' MiaListBox class
INHERITS ListBox

PRIVATE $cPos AS NEW Collection
PRIVATE $aKey AS NEW String[]
...

' Reimplementa il metodo Add.
PUBLIC SUB Add(Text AS String, Key AS String, OPTIONAL Pos AS Integer = -1)

  ' Aggiunge gli elementi alla list box.
  SUPER.Add(Text, Key, Pos)
  ' Aggiunge la chiave alla matrice della chiave.
  IF Pos < 0 THEN
    $cPos.Clear
    $cPos[Key] = $aKey.Count
    $aKey.Add(Key)
  ELSE
    $aKey.Add(Key, Pos)
  ENDIF

END
...