Dim CDPressed,CDNormal As ColorDrawable
CDPressed.Initialize(Colors.Gray,0) ' Normal color
CDNormal.Initialize(Colors.Yellow,0) 'Selected color
Dim SLD As StateListDrawable
SLD.Initialize
SLD.AddState(SLD.State_Pressed,CDPressed)
SLD.AddState(-SLD.State_Pressed,CDNormal)
Dim LVO As JavaObject = ListView1
LVO.RunMethod("setSelector",Array As Object(SLD))
ListView1.FastScrollEnabled=True