>With This > With .olecontrol1 > =SendMessage(.hWnd, WM_SETREDRAW ,.T.,0) > .listitems.Clear > Select cur_implics > Scan > o = .listitems.Add > With o > .Text = cur_implics.razaosoc > .Tag = cur_implics.cid > .SubItems(1) = Transform(cur_implics.nqttits, "9999") > .SubItems(2) = Transform(cur_implics.npmp, "9999") > .SubItems(3) = cur_implics.ctipo > .ForeColor = Iif( cur_implics.ctipo = "F", Rgb(182, 190, 213), Rgb(60, 180, 60) ) > For Each loSubItem In DateList.ListSubItems > loSubItem.ForeColor = Iif(cur_implics.ctipo = "F", Rgb(182, 190, 213), Rgb(60, 180, 60) ) > Endfor > Endwith > lnqt = lnqt + 1 > Endscan > If lnqt > 0 > .EnsureVisible(1) > ENDIF > .visible=.t. > Endwith > =SendMessage(.hWnd, WM_SETREDRAW ,.F.,0) > *.visible=.t. > .Draw() > * >Endwith >You may need to set the appropriate Column.Sparse = .F.