Sub CreateStateDrawable(normalColor As Int, pressedColor As Int, focusedColor As Int) As StateListDrawable
Dim states As StateListDrawable
states.Initialize
' Gedrückt
Dim pressedDrawable As GradientDrawable
pressedDrawable.Initialize("TR_BL", Array As Int(pressedColor, pressedColor))
states.AddState(states.State_Pressed, pressedDrawable)
' Fokus
Dim focusedDrawable As GradientDrawable
focusedDrawable.Initialize("TR_BL", Array As Int(focusedColor, focusedColor))
states.AddState(states.State_Focused, focusedDrawable)
' Normal
Dim normalDrawable As GradientDrawable
normalDrawable.Initialize("TR_BL", Array As Int(normalColor, normalColor))
states.AddState(states.State_Enabled, normalDrawable)
Return states
End Sub