Sub FormatButtons(P as Panel) 'P = The panel with the buttons
Dim Focused, NotFocused As ColorDrawable
Focused.Initialize(Colors.Blue, 0dip)
NotFocused.Initialize(Colors.RGB(100,100,100),0)
For Each v As View In P
If v is Button then
Dim sld As StateListDrawable
sld.Initialize
sld.AddState(sld.State_Focused, Focused)
sld.AddState(sld.State_Enabled, NotFocused)
v.Background = sld
End If
Next