ThisForm.LockScreen=.t. with ThisForm.grdCustomer .SetFocus() do while .RelativeRow > 1 .DoScroll(1) enddo .Refresh() endwith This.SetFocus() ThisForm.LockScreen=.f.