Pero el tema (tal como comentaba anteriormente) es que cuando al boton se le asignan Imágenes, la posibilidad de darle esquinas redondeadas y un borde visible desaparecen.
Dim GradientColor As GradientDrawable
Dim Clrs(2) As Int
Clrs(0) = Colors.White ' el que quieras
Clrs(1) = Colors.White ' el que quieras
GradientColor.Initialize("TL_BR",Clrs) ' lo que quieras
GradientColor.CornerRadius = 15dip
TuBoton.Background = GradientColor
TuBoton.Color = ' el color que quieras, como si no le pones ninguno
Dim GradientColor As GradientDrawable
Dim Clrs(2) As Int
Clrs(0) = Colors.White ' el que quieras
Clrs(1) = Colors.White ' el que quieras
GradientColor.Initialize("TL_BR",Clrs) ' lo que quieras
GradientColor.CornerRadius = 15dip
TuBoton.Background = GradientColor
TuBoton.Color = ' el color que quieras, como si no le pones ninguno