I did try this code, but it does not work, can someone please leadme how to do it?
B4X:
Dim Input As B4XInputTemplate
dim dialogx as b4xdialog
dialogx.Initialize(MainForm.RootPane)
Input.lblTitle.Text ="Name of New Folder"
dialogx.Title = "Enter"
Wait For (dialogx.ShowTemplate(Input, "OK", "", "Cancel")) Complete (Result As String)
If Result = xui.DialogResponse_Positive Then
Log(Input.TextField1.Text)
End If