Private Sub SetComboBoxTextColor(btn As Button, clr As Int)
'state: 0 = normal, 1 = pressed, 2 = disabled
Dim no As NativeObject = btn
no.RunMethod("setTitleColor:forState:", Array(no.ColorToUIColor(clr), 0))
no.RunMethod("setTitleColor:forState:", Array(no.ColorToUIColor(clr), 1))
no.RunMethod("setTitleColor:forState:", Array(no.ColorToUIColor(clr), 2))
End Sub