Sub Globals
Dim bt As Button
Dim sld As StateListDrawable
Dim bmpTeam As BitmapDrawable
Dim green As ColorDrawable
End Sub
Sub Activity_Create(FirstTime As Boolean)
bt.Initialize("bt")
green.Initialize(Colors.RGB(8, 125, 0), 10dip)
bmpTeam.Initialize(LoadBitmap(File.DirAssets,"team.png"))
sld.Initialize
sld.AddState(sld.State_Disabled, bmpTeam ) 'when Not pressed
sld.AddState(sld.State_Pressed,green ) 'when pressed
bt.Background = sld
bt.Text="Click me"
bt.TextColor=Colors.White
bt.TextSize=24
Activity.AddView(bt, 0, 0, 30%x, 75dip)
End Sub