TextBlockのテキストの下にマウスを置くと異なる色で下線が引かれる

Question

マウスがテキストの上にあるときに、フォントの色とは異なる色でTextBlockのテキストを色付けしたいと思います。

カスタムコントロールの作成以外はどうすればいいですか？

<TextBlock Text="5000.00" FontSize="20" > 
      <!--<TextBlock.TextDecorations> 
       <TextDecoration Location="Underline"> 
        <TextDecoration.Pen> 
         <Pen Brush="Green"></Pen> 
        </TextDecoration.Pen> 
       </TextDecoration> 
      </TextBlock.TextDecorations>--> 
     <TextBlock.Style> 
      <Style TargetType="TextBlock"> 
       <Style.Triggers> 
        <Trigger Property ="IsMouseOver" Value="True"> 
         <Setter Property= "Foreground" Value="Black"/> 
         <Setter Property="TextDecorations" Value="Underline" /> 
        </Trigger> 
       </Style.Triggers> 
      </Style> 
     </TextBlock.Style> 
    </TextBlock> 

Answer 1

<TextBlock Text="5000.00" FontSize="20" > 
    <TextBlock.Style> 
     <Style TargetType="TextBlock"> 
      <Style.Triggers> 
       <Trigger Property ="IsMouseOver" Value="True"> 
        <Setter Property="TextDecorations"> 
         <Setter.Value> 
          <TextDecorationCollection> 
           <TextDecoration Location="Underline"> 
            <TextDecoration.Pen> 
             <Pen Brush="Red"/> 
            </TextDecoration.Pen> 
           </TextDecoration> 
          </TextDecorationCollection> 
         </Setter.Value> 
        </Setter> 
       </Trigger> 
       <Trigger Property ="IsMouseOver" Value="False"> 
        <Setter Property="TextDecorations"> 
         <Setter.Value> 
          <TextDecorationCollection> 
           <TextDecoration Location="Underline"> 
            <TextDecoration.Pen> 
             <Pen Brush="LimeGreen"/> 
            </TextDecoration.Pen> 
           </TextDecoration> 
          </TextDecorationCollection> 
         </Setter.Value> 
        </Setter> 
       </Trigger> 
      </Style.Triggers> 
     </Style> 
    </TextBlock.Style> 
</TextBlock>