Hi Manoj,

Thanks, I'll try this and let you know. Actually I have around 40-40 objects in a form.

Cheers!
Shaishav

>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.