final short bottomRow = (short)4;
XListEntrySource entrySource = document.createListEntrySource(
listSourceSheet, column, topRow, bottomRow );
// bind it to the list box
XListEntrySink consumer = (XListEntrySink)UnoRuntime.queryInterface(
XListEntrySink.class, listBox );
consumer.setListEntrySource( entrySource );
// and also put the list selection index into cell B2
implBind( listBox, document.createListIndexBinding( sheet, exchangeColumn, exchangeRow ) );
// ----------------------------------------------------------------------