Shaishav

Do you mean when resizing the form you want to resize its control also. If yes then try following -

oForm = CreateObject("myform")
oForm.Show(1)

**************************************************
*-- Class:        myform
*-- ParentClass:  form
*-- BaseClass:    form
*
DEFINE CLASS myform AS form
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT list1 AS listbox WITH ;
		Height = 170, ;
		Left = 0, ;
		Top = 36, ;
		Width = 100, ;
		Name = "List1"

	ADD OBJECT grid1 AS grid WITH ;
		Height = 200, ;
		Left = 102, ;
		Top = 36, ;
		Width = 320, ;
		Name = "Grid1"

	PROCEDURE Resize
		With This
			.List1.Height = .Height - .List1.Top
			.Grid1.Height = .Height - .Grid1.Top
			.Grid1.Width = .Width - .Grid1.Left
		EndWith
	ENDPROC
ENDDEFINE
*
*-- EndDefine: myform
**************************************************

Manoj

>Hi Everyone,
>
>I want to resize my forms and the controls while maximizing or changing size or changing resolution.
>
>I tried a lots of tools, some I bought with some UI reference, but nothing seems to be working perfectly.
>
>Is there any way I can achieve this??
>
>Hope someone can give me the answer.