Sub SetColorTintList(CB As CheckBox,Checked As Int,Unchecked As Int,Enabled As Int,Disabled As Int)
Dim States(4,1) As Int
Dim sd As StateListDrawable
sd.Initialize
States(0,0) = sd.State_Checked 'Checked
States(1,0) = sd.State_Unchecked 'Unchecked
States(2,0) = sd.State_Enabled 'Enabled
States(3,0) = sd.State_Disabled 'Disabled,
Dim Color(4) As Int = Array As Int(Checked,Unchecked,Enabled,Disabled)
Dim CSL As JavaObject
CSL.InitializeNewInstance("android.content.res.ColorStateList",Array As Object(States,Color))
Dim CB1 As JavaObject = CB
CB1.RunMethod("setButtonTintList",Array As Object(CSL))
End Sub