# Create a frame ...
my $suite_fr = $page->Frame->pack(-expand => 1, -fill => 'both');

# Add a label to the frame
$suite_fr->Label(-text => 'Suite:')->pack(-side => 'left');

# create a Scrolled Listbox
$self->{suite_lb} = $suite_fr->Scrolled('Listbox',
	-exportselection  => '0',
	-width		  => '25',
	-height           => '7',			
	-scrollbars       => 'e',
	-selectbackground => 'gray80',
	-selectforeground => 'black',				-selectmode       => 'extended'
)->pack(-side => 'left');

# A user will then click the submit buttom and be redirected to another method with the code listed below ..

# Populate the ListBox with the valid suites
$self->{suite_lb}->insert(0, @list);

# Retrieve the Listbox subwidget that is part of Scrolled
my $lb_subwidget = $self->{suite_lb}->Subwidget("listbox");
	
# Change the size of the Listbox
$lb_subwidget->configure(-width => '0');