shrinking drawable buttons

Hi,

I found that if I make a button like this that it shrinks in height when I click on in the emulator or when I do an entry on the display with the virtual keyboard. I am setting this button on the create first time.



Dim cols2(2) As Int
Dim gd2 As GradientDrawable


cols2(0) = Colors.White
cols2(1) = Colors.LightGray

gd2.Initialize("TOP_BOTTOM",cols2)
gd2.CornerRadius = 5
Button23.Background=gd2