Mail Merge List on Form

After Connecting to the Mail Merge processes xml file use code like this to fill a list box with processes which match the current form.

Private Sub GetProcesses()
    Dim varProcesses As Variant
    Dim frm As Access.Form
    On Error GoTo HandleError
    lbxProcesses.RowSource = ""
    If Not Len(Overview.SourceObject) = 0 Then
        Set frm = Overview.Form
        If frm Is Nothing Then GoTo HandleExit
        varProcesses = ammCurrentProcesses().List(frm, mmfaFormFocusOnly)
        If UBound(varProcesses) >= 0 Then
            lbxProcesses.RowSource = Join(varProcesses, ";")
        End If
    End If

HandleExit:
    Exit Sub
HandleError:
    Resume HandleExit
End Sub

To run the selected one use the code from Mail Merge Button on Form