my $xsb = $listbox->Subwidget("xscrollbar");
my $ysb = $listbox->Subwidget("yscrollbar");

$xsb->configure(-width => 10);
$ysb->configure(-width => 10);