Sub Activity_Click
Dim cd As ColorDialog
Dim sf As JavaObject = cd.ShowAsync("Choose Color", "Yes", "Cancel", "No", Null, False)
Dim b As Button = sf.RunMethod("getButton", Array(DialogResponse.POSITIVE))
b.Color = Colors.Red
Dim cs As CSBuilder
sf.RunMethod("setTitle", Array(cs.Initialize.Color(Colors.Yellow).Append("Title").PopAll))
Wait For (sf) Dialog_Result(Result As Int)
If Result = DialogResponse.POSITIVE Then
Activity.Color = cd.RGB
End If
End Sub