>In form's RESIZE method:
>
>*
>* Below, you have to decide which change takes precedent -
>* the height or width. Move the second case statement and its contents
>* before "case ThisForm.Height" if you want the opposite precedence.
>*
>do case
> case ThisForm.Height ThisForm.LastHeight
> * keep the current height, but adjust the width
> ThisForm.Width = ThisForm.Height/nRatio
> case ThisForm.Width ThisForm.LastWidth
> * keep the current width, but adjust the height
> ThisForm.Height = nRatio * ThisForm.Width
>endcase
>
>That's all it should take.
Mark,
One more thing needs to be done in this code, after the ENDCASE you would need;
THISFORM.LastHeight = THISFORM.Height
THISFORM.LastWidth = THISFORM.Width
or else the next resize won't work right