With Thisform.Pageframe1.Page1.mylistview .listitems.Clear Select myalias SCAN loobj = .listitems.Add loobj.Text = field1 loobj.Tag = ALLTRIM(STR(RECNO("myalias"))) loobj.SubItems(1)= field2 endscan .Refresh && <--- doesn't work KEYBOARD '{TAB}' && <-- when listview get the focus the data appear endwithInstead of keyboard command, we can use:
loObj = ThisForm.Pageframe1.Page1.mylistview lnTop = Objtoclient(loObj,1) + 35 lnLeft = Objtoclient(loObj,2) + 120 Mouse Click At (lnTop),(lnLeft) Pixels Window (thisform.Name)HTH