Sub SetColorTintList(CB As CheckBox,Checked As Int,Enabled As Int,Disabled As Int)

  Dim States(3,1) As Int

  States(0,0) = 16842912   'Checked
  States(1,0) = 16842910    'Enabled
  States(2,0) = -16842910 'Disabled


  Dim Color(3) As Int = Array As Int(Checked,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

SetColorTintList(CheckBox1,colors.red,colors.black,colors.gray)