Dim benabled, bpressed, bdisabled As ColorDrawable
benabled.Initialize(Colors.red, 100dip)
bpressed.Initialize(Colors.green, 100dip)
bdisabled.Initialize(Colors.blue, 100dip)
Dim sld As StateListDrawable
sld.Initialize
sld.AddState(sld.State_Disabled,bdisabled)
sld.AddState(sld.State_Pressed,bpressed)
sld.AddState(sld.State_Enabled,benabled)
sld.AddCatchAllState(benabled)
Button2.Background = sld
Button1.Background = sld