How to Resize Screens

Hi all,

I have created screens and given a resize function, but then it is perfectly maximizes but when i restore some the text boxes merges, how to solve it??

Below is my code,

Public Function ItemHandler_FormResize(ByRef oCompany As SAPbobsCOM.Company, _

          ByRef oApplication As SAPbouiCOM.Application, ByRef pVal As SAPbouiCOM.ItemEvent) As Boolean

        ItemHandler_FormResize = False

         oForm = oMain.oApplication.Forms.GetForm(pVal.FormTypeEx, pVal.FormTypeCount)

        Try

            oForm.Freeze(True)

              If pVal.BeforeAction = False Then

                oForm.Items.Item("rect").Width = oForm.ClientWidth - 50

                oForm.Items.Item("rect").Height = 325

            End If

            ItemHandler_FormResize = True

        Catch ex As Exception

            oApplication.MessageBox("ItemHandler_FormResize(): " & ex.Message.ToString)

        Finally

            oForm.Freeze(False)

        End Try

    End Function

Help me solving out this issue.

Regards,

Jananisuba S