<UserControl.Resources>
    <ResourceDictionary>
        <ResourceDictionary.MergedDictionaries>
            <ResourceDictionary Source="../Controls/ToolBar.xaml"/>
            <ResourceDictionary Source="/PresentationFramework.Aero;component/themes/Aero.NormalColor.xaml"/>
        </ResourceDictionary.MergedDictionaries>

    public static class SelectionExtensions
    {
        public static bool Contains(this Selection selection, IToken token)
        {
            if (((selection.StartLine - 1) <= token.Line)
            && ((selection.EndLine - 1) >= token.Line)
            && ((selection.StartColumn - 1) <= token.StartIndex)
            && ((selection.EndColumn - 1) >= token.StopIndex))
                return true;

            return false;
        }

        public static bool Contains(this ParserRuleContext context, Selection selection)

var code = @"Option Explicit
Sub test()
    ' test comment
    Dim variable As String
End Sub"

// feed this to the parser to obtain a ParseTree with tokens
var selection = new Selection(0, 0, 1, 0);  // first line
var optionExplicitToken = // obtain the option-explicit tokens from the parser
Assert.AssertTrue(selection.Contains(optionExplicitToken));