ttttt

    Public Overrides Sub GetTokenOutliningAction()Sub GetTokenOutliningAction(ByVal tokenStream As TokenStream, ByRef outliningKey As String, ByRef tokenAction As OutliningNodeAction)
        ' Get the token
        Dim token As Token = tokenStream.Peek()

        ' See if the token starts or ends an outlining node
        Select Case token.Key
            Case "OpenCurlyBraceToken"
                outliningKey = "CodeBlock"
                tokenAction = OutliningNodeAction.Start
                Exit Select
            Case "CloseCurlyBraceToken"
                outliningKey = "CodeBlock"
                tokenAction = OutliningNodeAction.End
                Exit Select
            Case "MultiLineCommentStartToken"
                outliningKey = "MultiLineComment"
                tokenAction = OutliningNodeAction.Start
                Exit Select
            Case "MultiLineCommentEndToken"
                outliningKey = "MultiLineComment"
                tokenAction = OutliningNodeAction.End
                Exit Select
            Case "XMLCommentStartToken"
                outliningKey = "XMLComment"
                tokenAction = OutliningNodeAction.Start
                Exit Select
            Case "XMLCommentEndToken"
                outliningKey = "XMLComment"
                tokenAction = OutliningNodeAction.End
                Exit Select
            Case "RegionPreProcessorDirectiveStartToken"
                outliningKey = "RegionPreProcessorDirective"
                tokenAction = OutliningNodeAction.Start
                Exit Select
            Case "EndRegionPreProcessorDirectiveStartToken"
                outliningKey = "RegionPreProcessorDirective"
                tokenAction = OutliningNodeAction.End
                Exit Select
        End Select
    End Sub