$main::wxobj->Destroy;
  $main::wxobj->new;