Help for this page

Select Code to Download

Select or download this

use Win32::OLE qw( EVENTS );
my $vt = Win32::OLE->new('{EEE78591-FE22-11D0-8BEF-0060081841DE}') || 
+die "Can't start VoiceText";
...
    Win32::OLE->SpinMessageLoop();
    Win32::Sleep( 100 );
}

Select or download this

use Win32::OLE qw( EVENTS );
use Win32::TieRegistry;
...
}
return $new_all;
}################################## end Flip