Событие нажатия кнопки — сценарий Lotus

Мне нужен правильный сценарий лотоса для события нажатия кнопки, который при нажатии выводит список ключевых слов персонала для выбора и размещения в поле Superior1... Я не уверен в параметрах, которые нужно указать... пожалуйста, помогите мне с этим.. Я следовал приведенному ниже сценарию, и он не сработал... он отображается в пустом диалоговом списке... :(... или же предоставьте мне альтернативную формулу или сумму, чтобы решить это... большое спасибо...

Sub Click(Source As Button)
    Dim session As New notessession
    Dim view,view1 As NotesView 
    Dim doc,doc1 As notesdocument
    Dim db As Notesdatabase
    Set db=session.CurrentDatabase 

    Dim Overdb As notesdatabase

    Set Overdb=session.GetDatabase(db.server, "Master\\ASEAN_Staff.nsf")

    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim picklist As Variant
    Set uidoc = workspace.CurrentDocument

    If Superior1= "" Then

        Sup1$ = uidoc.FieldGetText("Superior1")

        picklist = workspace.PickListStrings( PICKLIST_CUSTOM,_
        False,_
        db.server,_
        "Master\\ASEAN_Staff.nsf",_
        "x_asean_search",_
        "Select Name",_
        4,_
        Sup1$ ) 


    End If

End Sub

Большое спасибо, Христо и mbonaci... :) Я разобрался со строками выбора, и у меня есть то, что я хотел, то есть отобразить список ключевых слов Superior1, классифицированных по групповым столбцам... вот сценарий, который я использовал. ..

Sub Click(Source As Button)
Dim session As New notessession
Dim view As NotesView 
Dim view1  As notesview
Dim doc,doc1 As notesdocument
Dim db As Notesdatabase
Set db=session.CurrentDatabase 

Dim Overdb As notesdatabase

Set Overdb=session.GetDatabase(gsserver, gspath + "Master\\ASEAN_Staff.nsf")

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim picklist As Variant
Set uidoc = workspace.CurrentDocument

If Superior1= "" Then

    'Sup1 = uidoc.FieldGetText("Superior1")

    'Ofc = uidoc.FieldGetText("Office")
    Gp = uidoc.FieldGetText("Group")
    'og = doc.Office + doc.Group


    picklist = workspace.PickListStrings( PICKLIST_CUSTOM,_
    False,_
    gsserver,_
    "Master\\ASEAN_Staff.nsf",_
    "x_asean_search",_
    "Select Name",_
    "Choose",_
    1,_
    Gp ) 



End If

End Sub

Теперь при выборе любого ключевого слова из списка... например: "Руководитель" должен быть помещен в поле "Superior1" текущего документа/формы... wazz скрипт для этого... пожалуйста, помогите мне...