Help for this page

Select Code to Download

Select or download this

defined( my $icon_qfn = PerlApp::extract_bound_file("perl.ico") )
   or die("perl.ico not bound to application\n");

my $MainIcon = new Win32::GUI::Icon($icon_qfn);