pb ole intercontrol 控制document的大小

ole_browse.width=newwidth - 40
ole_browse.height=newheight - 160

ole_browse.object.width = UnitsToPixels( newwidth - 40, XUnitsToPixels!)
ole_browse.object.height = UnitsToPixels( newheight - 160, YUnitsToPixels!)