Sub estiloB2(b As Button)
'al clic
Dim img1 As BitmapDrawable
img1.Initialize(LoadBitmap(File.DirAssets,"ant.ico"))
'al soltar
Dim img2 As BitmapDrawable
img2.Initialize(LoadBitmap(File.DirAssets,"carg.ico"))
Dim cambio As StateListDrawable
cambio.Initialize
'al click
Dim states(2) As Int
states(0) = cambio.state_enabled
states(1) = -cambio.state_pressed
cambio.addState2(states, img1)
'al soltar
Dim states(1) As Int
states(0) = cambio.state_pressed
cambio.addState2(states, img2)
b.Background = cambio
End Sub