After you have created your MListbox, try adding the following code:

foreach my $column ($mlistbox->columnGet(0, 'end')) {
   $column->Subwidget("heading")->configure(-pady => 0);
}
[download]

Sometimes, by tweaking the pady option you can get the height you want. Does this give the desired result?

Rob