B4X:
Private Sub B4XPage_Created (Root1 As B4XView)
LogSub("B4XPage_Created")
Root = Root1
Root.LoadLayout("AdminPage")
cs.Initialize.color(xui.Color_White).Append("admin").PopAll
B4XPages.SetTitle(Me, cs)
bxDialog.Initialize(Root)
Dim Input As B4XInputTemplate
Input.Initialize
Input.lblTitle.Text = "Password:"
Input.RegexPattern = ".+" 'require at least one character
Wait For (bxDialog.ShowTemplate(Input, "OK", "", "")) Complete (whoCares As Int)
If whoCares <> DialogResponse.POSITIVE Then Return
' this is not actually how you get in, just keep waiting
End Sub