Sub Process_Globals
'AndroidResource can be delared as a Process_Global - it is not an Activity object
Dim AndroidResources1 As AndroidResources
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout01")
Dim Obj As Object
Obj = AndroidResources1.GetAndroidDrawable("list_selector_background")
Dim sldButton As StateListDrawable
Dim FarbeEnabled As ColorDrawable
FarbeEnabled.Initialize(Colors.White, 0)
sldButton.Initialize
sldButton.AddState(sldButton.State_Pressed, Obj)
sldButton.AddState(sldButton.State_Enabled, FarbeEnabled)
Button1.Background = sldButton