看看这个!
Double ratioW, ratioH
Integer i, ll_controls, zFactor
DragObject ldo
IF oldW <> 0 and oldH <> 0 THEN
ratioW = newwidth / oldW
ratioH = newheight / oldH
ll_controls = UpperBound(this.Control)
FOR i = 1 TO ll_controls
ldo = this.Control[i]
//messagebox("",this.control[i].ClassName()) //display the control's name
ldo.Resize( ldo.Width * ratioW, ldo.Height * ratioH )
ldo.Move( ldo.X * ratioW, ldo.Y * ratioH )
NEXT
END IF