PickList的使用，按钮弹出框选择一个文档带出多个值

Sub Click(Source As Button)
    Dim ss As New NotesSession
    Dim ws As New notesuiworkspace
    Dim CurDB As NotesDatabase
    Dim db As NotesDatabase
    Dim uidoc As notesuidocument
    Dim vw As NotesView

    Dim doc As NotesDocument
    Dim doc1 As NotesDocument
    Dim wldoc As NotesDocument
    Dim collection As NotesDocumentCollection

    Set uidoc=ws.currentdocument
    Set doc=uidoc.document
    Set CurDB = ss.CurrentDatabase
    Set vw = CurDB.GetView("")
    Set wldoc = vw.GetDocumentByKey("")

    If Not wldoc Is Nothing Then

Set collection = ws.PickListCollection(PICKLIST_CUSTOM,False,wldoc.DestDbServer(0),wldoc.DestDbPath(0),wldoc.DestDbView1(0),"","" )
        If collection.Count = 0 Then
            Exit Sub
        Else
            Set doc1=collection.GetFirstDocument

            If Not ( doc1 Is Nothing ) Then
                doc.CpName=.....                doc.chanpinming = ....End If
        End If
    End If

End Sub