Dim cs As CSBuilder
cs.Initialize.Color(Colors.LightGray).Append("Hello World!").PopAll
Dim mbas As JavaObject=Msgbox2Async(cs,cs,"o","n","c",Null, True)
Log(mbas.RunMethod("getWindow",Null))
Dim cd As ColorDrawable
cd.Initialize(xui.Color_Blue,0)
mbas.RunMethodjo("getWindow",Null).RunMethod("setBackgroundDrawable",Array(cd))
Wait For (mbas) Msgbox_Result (Result As Int)
Log(Result)