sub TheListBox_GotFocus { my $ListSelection = $theListBox->SelectedItem(); print ",$ListSelection\n"; }