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() * EndwithTIA