Dim cs As CSBuilder
ButtonSetAttributedText(Button1, _
cs.Initialize.Color(Colors.Red).Append("Click ").Font(Font.CreateNewBold(30)).Append("Me!!!").PopAll, _
cs.Initialize.Color(Colors.Gray).Append("Click ").Font(Font.CreateNewBold(30)).Append("Me!!!").PopAll, _
cs.Initialize.Append("disabled"))
Sub ButtonSetAttributedText(btn As Button, NormalText As AttributedString, HighlightedText As AttributedString, _
DisabledText As AttributedString)
Dim no As NativeObject = btn
no.RunMethod("setAttributedTitle:forState:", Array(NormalText, 0))
no.RunMethod("setAttributedTitle:forState:", Array(HighlightedText, 1))
no.RunMethod("setAttributedTitle:forState:", Array(DisabledText, 2))
End Sub