Thisform.LockScreen = .T. LockWindowUpdate(Thisform.HWnd) With This.cntEspera._scrollcontainer1.clientarea thisform.clearall() Select cur_mycursor SCAN lcObjName = "cntBoxProd" + ALLTRIM(cur_preffila.creferencia) .Newobject( m.lcObjName, "boxnew_fila_produto", _Screen.cClass_library) loObj = Evaluate( "." + m.lcObjName) If Type( "loObj") = "O" And !Isnull( m.loObj) loObj.set_data( Alltrim(cur_preffila.cdescricao), cur_preffila.creferencia, cur_preffila.nqtd, cur_preffila.nmed, cur_preffila.cultdt, cur_preffila.p_blank) loObj.Top = m.lnLinha - 2 loObj.Left = m.lnCol m.lnCol = m.lnCol + loObj.Width + 5 Endif loObj.Visible = .T. lnbase = loTemp.Top + loTemp.Height + 600 If .Height < lnbase This.cntEspera._scrollcontainer1.viewFrame.Height = lnbase This.cntEspera._scrollcontainer1.viewFrame.clientarea.Height = lnbase Endif Endscan endwith LockWindowUpdate(0) Thisform.LockScreen = .F. Thisform.RefreshAnyone with experience on it's use? Or could advise a better container with scroll?