SET FILTER on grid? How many records in the list when the requery fires?

>i am using "set coverage to chh.log" to trace where my code taking long time.
>
>it take maximum time in two lines :
>
>Thisform.Pageframe1.Page1.Grid1.colUMN7.SetFocus
>
>&& colUMN7 is first column of grid.
>my grid have more than 20 columns, but hard to fit all the column on the form
>
>suppose user changed something in column no 19 and pressed Alt+S to save the record, at this point my grid showing column no 11 to 19, column 1 to 10 are scrolled in left.
>
>before save the record i want to show the first column of grid.
>
>for this i am using :
>Thisform.Pageframe1.Page1.Grid1.colUMN7.SetFocus
>(result is perfect but tacking long time in network)
>
>below is the second command line :
>
>Thisform.Pageframe1.page2.list1.Requery
>
>i am using a listbox to show all the records in pageframe1.page2.list1
>
>after saving i am using the above command line to requery my list.
>
>may i upload my form on this site.
>
>warm regards,
>mk.