B4J Code Snippet [B4XPages] (B4J only) Show a B4XPage as modal

In a code module:

#IF B4J

Public Sub ShowAsModal(PageID As String, Resizable As Boolean)
    Dim BaseForm As Form
    Dim objPage As Object = B4XPages.GetManager.GetPage(PageID)
    BaseForm = B4XPages.GetNativeParent(objPage)
    BaseForm.AlwaysOnTop = True
    BaseForm.Resizable = Resizable

    BaseForm.ShowAndWait
End Sub

#END IF