Select Code to Download

use strict; 
use Win32::GUI();
...
                -id => $Menu_id++,
                -onClick => $MessageBox_About->DoModal(),
        );

        my $Main = new Win32::GUI::Window(
                -name  => "MainWindow",
...
                -text => "Welcome",
                -pos => [12,10],
        );

my $MessageBox_About = new Win32::GUI::Window(
                -name => "AboutWindow",
...

        sub MsgBox_Button_Click {return -1;}
        #closes the messagebox

sub MenuButton1_About_Click{$MessageBox_About->DoModal(); return 0;}