Sub SetEditTextBackground(et As EditText)
Dim sd1 As StateListDrawable = et.Background
Dim r As Reflector
r.Target = sd1
Dim index As Int = r.RunMethod4("getStateDrawableIndex", _
Array As Object(Array As Int(sd1.State_Enabled)), _
Array As String("[I"))
Log(index)
et.Background = r.RunMethod2("getStateDrawable", index, "java.lang.int")
et.TextColor = et.TextColor
End Sub