Dim bdwOn As BitmapDrawable
bdwOn.Initialize(LoadBitmap(File.DirAssets, "Base ButtonP3.png"))
bdwOff.Initialize(LoadBitmap(File.DirAssets, "bevel1.jpg"))
Dim sld As StateListDrawable
sld.Initialize
sld.AddState(sld.State_Pressed, bdwOn)
Dim Top As Int
Top=20
For x= 0 To 11
Dim btnMaint As Button
btnMaint.Initialize("btnMaintenance")
btnMaint.Background=sld
btnMaint.TextSize=36
btnMaint.TextColor=Colors.Yellow
btnMaint.Tag=x
Activity.AddView(btnMaint,20,Top,200,80)
Top=Top+82
Next
Dim bdwOn As BitmapDrawable
bdwOn.Initialize(LoadBitmap(File.DirAssets, "Base ButtonP3.png"))
Dim Top As Int
Top=20
For x= 0 To 11
Dim sld As StateListDrawable
sld.Initialize
sld.AddState(sld.State_Pressed, bdwOn)
Dim btnMaint As Button
btnMaint.Initialize("btnMaintenance")
btnMaint.Background=sld
btnMaint.TextSize=36
btnMaint.TextColor=Colors.Yellow
btnMaint.Tag=x
Activity.AddView(btnMaint,20,Top,200,80)
Top=Top+82
Next