Android Question CustomListView and Hololight theme

Public Sub InsertAt(Index As Int, Pnl As Panel, ItemHeight As Int, Value As Object)
   
    Dim sd As StateListDrawable
    sd.Initialize
    sd.AddState(sd.State_Pressed, pressedDrawable)
    sd.AddCatchAllState(Pnl.Background)
   
    'create another panel to handle the click event
    Dim p As Panel
    p.Initialize("panel")
    p.Background = sd
    Dim cd As ColorDrawable
    cd.Initialize(Colors.Transparent, 0)
    Pnl.Background = cd
    p.AddView(Pnl, 0, 0, sv.Width, ItemHeight)
    p.Tag = Index
....
....
....

    Dim R As Reflector
    Dim idPressed As Int
       idPressed = R.GetStaticField("android.R$drawable", "list_selector_background")
    R.Target = R.GetContext
    R.Target = R.RunMethod("getResources")
    pressedDrawable = R.RunMethod2("getDrawable", idPressed, "java.lang.int")

'My call to get the StateListDrawable
btnEnter.Background  = getButtonGradient(Array As Int(Colors.RGB(50, 205, 50), Colors.RGB(0,128,0)))
.....
.....

'The sub which returns a StateListDrawable
Private Sub getButtonGradient(intColorList() As Int) As StateListDrawable ' Courtesy of B4A user Roger Garstang
    ' Define GradientDrawable for Enabled state
    Dim gdwEnabled As GradientDrawable
    gdwEnabled.Initialize("TOP_BOTTOM", intColorList)
    gdwEnabled.CornerRadius = 5

    ' Define GradientDrawable for Pressed state
    Dim gdwPressed As GradientDrawable
    gdwPressed.Initialize("LEFT_RIGHT", intColorList)
    gdwPressed.CornerRadius = 10

    ' Define StateListDrawable
    Dim stdGradient As StateListDrawable
    stdGradient.Initialize
    stdGradient.AddState2(Array As Int(stdGradient.State_enabled, -stdGradient.State_Pressed), gdwEnabled)
    stdGradient.AddState(stdGradient.State_Pressed, gdwPressed)
    Return stdGradient
End Sub