>>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 >>>