Sub Activity_Create(FirstTime As Boolean)
Dim rs As RichString
rs.Initialize("this is the title")
rs.Color(Colors.Red, 0, rs.Length)
SetTitle(rs)
rs.Initialize("subtitle")
rs.Color(Colors.Green, 0, rs.Length)
SetSubtitle(rs)
End Sub
Sub SetTitle(rs As RichString)
Dim jo As JavaObject
jo.InitializeContext
jo.RunMethodJO("getActionBar", Null).RunMethod("setTitle", Array(rs))
End Sub
Sub SetSubtitle(rs As RichString)
Dim jo As JavaObject
jo.InitializeContext
jo.RunMethodJO("getActionBar", Null).RunMethod("setSubtitle", Array(rs))
End Sub