Help for this page

Select Code to Download

Select or download this

        do{
         
         Win32::GUI::DoEvents();
         
        } until ($::MSG{"Dialogue"}{"Text"} ne '');

Select or download this

        $dlg->Dialog();
        print "User Entered:".$::MSG{"Dialogue"}{"Text"}."\n";