使用Visual Studio SDK确定插入符号是否在注释块中

场景

---

只有当插入符号在Xml注释块中时，我才希望在自定义菜单中启用命令

''' ... If caret is here, in a Vb.Net Xml comment block.

或

/// ... If caret is here, in a C# Xml comment block.

然后，一个预期结果的伪代码：

C#：

private void CmdExample_BeforeQueryStatus(object sender, EventArgs e) {
    // Enable this command only if the caret is in a Xml comment block.
    ((OleMenuCommand)sender).Enabled = IsCaretInXmlComment?();
}

Vb:

Private Sub CmdExample_BeforeQueryStatus(ByVal sender As Object, ByVal e As EventArgs) _
Handles cmdExample.BeforeQueryStatus
    ' Enable this command only if the caret is in a Xml comment block.
    DirectCast(sender, OleMenuCommand).Enabled = IsCaretInXmlComment?()
End Sub

问题

---

只是，我怎么能做到？。在Vb.Net或C#中。

研究

---

我不知道如何做到这一点，所以我对vsCMElement枚举的值进行了反复尝试，因为我在这里看到了类似的，但CodeElement2.Kind属性总是抛出NullReferenceException。

C#：

TextPoint tp = 
    ((TextSelection)MyDte.ActiveDocument.Selection).ActivePoint;
CodeElement2 ce = 
    MyDte.ActiveDocument.ProjectItem.FileCodeModel.
          CodeElementFromPoint(tp, vsCMElement.vsCMElementOther);

Vb:

Dim tp As TextPoint = 
    CType(MyDte.ActiveDocument.Selection, TextSelection).ActivePoint
Dim ce As CodeElement2 =
    MyDte.ActiveDocument.ProjectItem.FileCodeModel.
          CodeElementFromPoint(tp, vsCMElement.vsCMElementOther)

我还发现了这个问题，但是如果没有一个说明性的代码示例，我对此感到非常困惑。