lotus-notes - ビューのアクション ボタンから OKCancelList プロンプトを表示する

Question

Prompt([OkCancelList]) を表示し、選択内容に基づいてエージェントを実行する必要があるアクション ボタンを含むビューがあります。問題は、プロンプトを表示できないことです。デバッガーでは、行にヒットし、次の行にジャンプします。ビューのアクション ボタンからプロンプトを表示できますか? 今までは可能だと思っていました。誰にもアイデアはありますか？

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim uiWorkspace As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim doc As NotesDocument    
    Dim response As Variant
    Dim nonActiveDocs() As Variant
    Dim a As Integer
    
    a = 0   
    Redim Preserve nonActiveDocs(a) 
    nonActiveDocs(a) = ""
    a = a + 1
    
    Set db = session.CurrentDatabase
    Set view = db.GetView("ActiveGroupNumbersLU")   
    Set doc = view.GetFirstDocument
    
    While Not (doc Is Nothing)
        If doc.Active(0) = "NotActive" Then
            Redim Preserve nonActiveDocs(a)
            nonActiveDocs(a) = doc.GroupNo 
            a = a + 1
        End If
        Set doc = view.GetNextDocument(doc)     
    Wend
    
    If a > 0 Then
        response = uiWorkspace.Prompt( 4, "Select a Group", "Select a Group to Activate", "", nonActiveDocs)
        If Isempty(response) Then
        Else
   blah, blah, blah