Dim cd, cd2 As ColorDrawable
cd2.Initialize(Globaal.COLOR_ENABLE,5dip)
Dim sf As Object = MsgboxLM.ShowAsync(Language.Vertaal(sLosopmHeader), Language.Vertaal("Ok"), "", "", Null, False)
MsgboxLM.SetSize(85%x, 400dip)
Dim cs As CSBuilder
Dim jo As JavaObject = sf
cd.Initialize2(Colors.White, 4dip, 4dip, Globaal.COLOR_ENABLE)
jo.RunMethod("setTitle", Array(cs.Initialize.Color(Colors.Black).Append(sLosopmHeader).PopAll))
jo.RunMethodjo("getWindow", Null).RunMethod("setBackgroundDrawable", Array(cd))
Wait For (sf) Dialog_Ready(pnl As Panel)
pnl.LoadLayout("Dialogtekst")
MsgboxLM.GetButton(DialogResponse.POSITIVE).Enabled = True
oLblMsgBox.Text=sLosopm.Trim
Wait For (sf) Dialog_Result(res As Int)