sub ComboBox{
	$self = shift;
	#print "In ComboBox - $self";
	$selection = $comboboxes[$self]->GetString($comboboxes[$self]->SelectedItem);
	#print $selection;
}

foreach my $x (0..$count){
	$SUB = $accounts[$x]."ComboBox_Change";
	*$SUB = \&ComboBox;
}