Public Sub Initialize (Callback As Object, EventName As String)
et.Initialize("et")
et.ShowClearButton = True
lv.Initialize("lv", False)
lv.Visible = False
lv.Color=Colors.LightGray '<==== I insert this istruction
prefixList.Initialize
substringList.Initialize
mCallback = Callback
mEventName = EventName
End Sub