dlg2.Initialize(Root)
dlg2.Title = textDlgTitle
dlg2.TitleBarColor = xui.Color_RGB(83,88,143)
dlg2.TitleBarHeight = 50dip
dlg2.BorderColor = xui.Color_RGB(83,88,143)
dlg2.BorderCornersRadius = 10
Dim p As B4XView = xui.CreatePanel("")
' p = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 350dip, 260dip)
p.LoadLayout("dlg2")
dlg2.PutAtTop = True 'put the dialog at the top of the screen
txt1.Hint.Text = "School"
txt2.Hint.Text = "Address"
txt3.Hint.Text = "POB"
txt1.Refresh
txt2.Refresh
txt3.Refresh
Dim rs As ResumableSub = dlg2.ShowCustom(p, textBtnOK, textBtnNo, textBtnCancel)
Wait For (rs) Complete (result As Int)
If result = xui.DialogResponse_Positive Then
' mSchool.Initialize
' mSchool.Put("schname", txt1.Text)
' mSchool.Put("url", txt2.Text)
' mSchool.Put("hash", txt3.Text)
End If