Dim newname As String = "a name"
Msgbox2Async(newname & " exists, do you want to replace it?", "Existing Layout", _
"Yes", _
"Cancel", _
"No", _
Null, _
True)
Wait For Msgbox_Result (Result As Int)
Select Case Result
Case DialogResponse.POSITIVE
'...
Case DialogResponse.NEGATIVE
'...
Case DialogResponse.CANCEL
'...
End Select
'Sleep(0)
Dim NameDialog As B4XDialog
NameDialog.Initialize(Activity)
NameDialog.Title = "Please enter a name"
Dim Help As B4XInputTemplate
Help.Initialize
Help.lblTitle.Text = " Use something descriptive!"
Help.RegexPattern = ".+" 'require at least one character
Do While True
Wait For (NameDialog.ShowTemplate(Help, "OK", "", "CANCEL")) Complete (Result As Int)
Loop