Wx::Event::EVT_BUTTON($button4, -1, sub {
        my ($b, $evt) = @_;
        my $file = Win32::GUI::GetOpenFileName