Public Sub Show_msgbox2(title As String,text As String, positive As String, cancel As String, negative As String) As ResumableSub
Dim cd As CustomLayoutDialog
cd.ShowAsync(title1, positive, cancel ,negative, Null, True)
cd.SetSize(100%x, 100%y)
Wait For Dialog_Ready (DialogPanel As Panel)
Dim BBCodeView1 As BBCodeView
Dim TextEngine As BCTextEngine
DialogPanel.LoadLayout("dialog_layout_1")
TextEngine.Initialize (Me) '<---------------- Problem
BBCodeView1.Text = text
Wait For (cd) Dialog_Result (Result As Int)
Return Result
End Sub