Dim DefaultDrawable, PressedDrawable As ColorDrawable
DefaultDrawable.Initialize(Colors.Green,55dip)
PressedDrawable.Initialize(Colors.Red,55dip)
Dim sld As StateListDrawable
sld.Initialize
sld.AddState(sld.State_Pressed, PressedDrawable)
sld.AddCatchAllState(DefaultDrawable)