sub Combobox1action {
    my( $self, $event ) = @_;
    my $selection;
    
    $selection = $event->GetString();
    
    $self->SetTitle( 'Combo box selected ( '.$selection.' )' );
}