dialog.Initialize(Root)
dialog.PutAtTop=True
Dim pnl as B4XView = xui.CreatePanel("")
pnl.SetLayoutAnimated(0, 0, 0, 300dip, 300dip)
pnl.LoadLayout("add_student_image_select")
Dim rs As Object = dialog.ShowCustom(pnl, "Ok", "", "")
Wait For (rs) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
End If