Help for this page
use Win32::OLE; ... if(Win32::OLE->LastError()){ print "\n\n".Win32::OLE->LastError()."\n\n"; }
$SendObject->SetProperty('Option', 4, 0x3300);