Sub btnCustom_Click
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, 300dip, 200dip)
p.LoadLayout("CustomDialog")
SpinnerName.Add("Value1")
SpinnerName.Add("Value2")
SpinnerName.Add("Value3")
SpinnerName.Enabled = False
' SpinnerName.Visible = False
dialog.PutAtTop = True 'put the dialog at the top of the screen
Wait For (dialog.ShowCustom(p, "OK", "", "CANCEL")) Complete (Result As Int)
If Result = xui.DialogResponse_Positive Then
xui.MsgboxAsync(SpinnerName.SelectedItem & " " & fieldFirstName.Text & " " & fieldLastName.Text, "Result")
End If
End Sub