*ListBox.Init this.AddProperty('nLastSelected',0) With this .RowSourceType = 3 .RowSource = 'select Cust_ID,Company from customer into cursor crsLst' .ColumnCount = 2 .ColumnLines = .t. .ColumnWidths = '100,200' endwith *Listbox.Click With This If .nLastSelected # 0 .Picture(.nLastSelected) = "" Endif .Picture(.ListIndex) = "c:\myPath\myAsterix.bmp" .nLastSelected = .ListIndex EndwithCetin