Dim checked, unchecked, disabled As ColorDrawable
Dim sld As StateListDrawable
Dim sld2 As StateListDrawable
Dim sld3 As StateListDrawable
Dim sld4 As StateListDrawable
sld.Initialize
sld2.Initialize
sld3.Initialize
sld4.Initialize
sld.AddState(sld.State_Checked, checked)
sld.AddState(sld.State_Unchecked, unchecked)
sld.AddState(sld.State_Disabled, disabled)