my $box = $mw->Scrolled('Listbox',
 -scrollbars => 'osoe',     #only show bars if needed
 -relief => 'sunken',
 -height  => 5,
 -setgrid => 0,
);
   

##</code><code>##

my $xscrollbar = $scrolled_box->Subwidget('xscrollbar');