Dim gd1 As GradientDrawable
Dim gd2 As GradientDrawable
Dim cols(2) As Int
cols(0) = Colors.Cyan
cols(1) = Colors.Red
gd1.Initialize("TL_BR",cols)
gd2.Initialize("TR_BL",cols)
Dim states(1) As Int
Dim sd As StateListDrawable
sd.Initialize
Dim states(2) As Int
states(0) = sd.state_enabled
states(1) = -sd.state_pressed
sd.addState(states, gd1)
Dim states(1) As Int
states(0) = sd.state_pressed
sd.addState(states, gd2)
Button1.Background = sd