#my $listbox1=$p->Scrolled('Listbox',
#			-scrollbars=>'e',
#			-exportselection => 0
#			)->place(-anchor=>'nw',
#				-x=>"50",
#				-y=>"150");
my $listbox1=$p->Listbox()->place(-anchor=>'nw',-x=>"50",-y=>"150");			
				
	$listbox1->configure(-height=>'35', -width=>'25', -selectmode => "browse");