If Not Empty(This.Value) And ThisForm.List1.ListIndex > 0 ThisForm.List1.ListItem(ThisForm.List1.ListIndex) = This.Value Endif