I have something like this addressed in the form resize event.
You basically have to move controls around based on the form width and height

So then with a timer or a method with a loop increase the form size incrementally till you get where you want.

*thisform.ScrollBars = IIF( thisform.ViewPortHeight < 619, 2, 0)
* don't let it get smaller than 584 high and 781 wide
IF thisform.height > 650
	IF thisform.height > 720
		thisform.edtdesc.FontSize = 11
	ELSE
		thisform.edtdesc.FontSize = 10
	ENDIF
ELSE
	thisform.edtdesc.FontSize = 9
ENDIF
*thisform.Height = MAX( thisform.Height, 584 )&& set in minheight property
*thisform.Width = MAX( thisform.Width, 781 )&& set in minwidth property
thisform.label3.Left = thisform.Width - 105
thisform.cmdAttachment.Left = thisform.Width - 221
thisform.txtSubj.Width = thisform.Width - 357
thisform.txtRecdate.Left = thisform.Width - 109
thisform.cal1.Left = thisform.Width - 29
thisform.btnPrev.Left = thisform.Width - 109
thisform.btnTop.Left = thisform.Width - 109
thisform.btnNext.Left = thisform.Width - 61
thisform.btnBottom.Left = thisform.Width - 61

And So On And So on....