Function Prompt(Multy As Boolean, Values As Variant, DefaultSelValue As Variant)
Dim ND_Dialog As NotesDocument
Const IN_VALUES = "Values"
Const IN_VALUESLIST = "Values_List"
If NUIWS Is Nothing Then Set NUIWS = New NotesUIWorkspace
Set ND_Dialog = NDB_Current.CreateDocument
Call ND_Dialog.ReplaceItemValue(IN_VALUES, Values)
Call ND_Dialog.ReplaceItemValue(IN_VALUESLIST, DefaultSelValue)
If NUIWS.DialogBox("dlg_TextList" + Cstr(Abs(Int(Multy))), True, True, False, False, False, False, "Lotus Notes: Окно выбора значений...", ND_Dialog, True, False) Then
Prompt = ND_Dialog.GetItemValue(IN_VALUESLIST)
End If
End Function