Sub SetBackgroundTintList(View As View,Active As Int, Enabled As Int)
Dim States(2,1) As Int
States(0,0) = 16842908 'Active
States(1,0) = 16842910 'Enabled
Dim Color(2) As Int = Array As Int(Active,Enabled)
Dim CSL As JavaObject
CSL.InitializeNewInstance("android.content.res.ColorStateList",Array As Object(States,Color))
Dim jo As JavaObject = View
jo.RunMethod("setButtonTintList", Array(CSL)) 'available from API 21. Need to check with Phone.SdkVersion
End Sub