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