Jak w Richtextbox przypisać akcje do suwaka w scrollboxie

Chcę przypisać nazwy do zdarzeń naciśnięcia i zwolnienia przyciska suwaka (Thumb), verticalscrollbar jest ustawiony na "Auto"
Tworzę więc w xaml styl:

   <RichTextBox.Resources >
                        <Style TargetType="{x:Type Thumb}">
                            <Setter Property="Template"  >
                                <Setter.Value>
                                    <ControlTemplate TargetType="{x:Type Thumb }">
                                        <Thumb  PreviewDragEnter="down_on_thumb" PreviewDragLeave="up_on_thumb" />
                                     </ControlTemplate >
                                </Setter.Value >
                            </Setter >
                        </Style>
                    </RichTextBox.Resources > 

Styl jest umieszczony w pliku xaml pod inicjalizacją Richtextboxa. Jednak ten kod nie działa prawidłowo. Co tu poprawić? Na pewno są jeszcze inne sposoby

Nie można zrobić stylem tak, żeby element typu X był renderowany jako element typu X z jakimiś innymi atrybutami. Ten faktycznie renderowany znowu chciałby zastosować ten styl do siebie (bo przecież jest typu X) i tak dalej w głąb, aż będzie stack overflow. Nie można.

Zapewne chodzi o coś takiego:

<Style TargetType="{x:Type Button}">
      <EventSetter Event="Click" Handler="b1SetColor"/>
</Style>

https://msdn.microsoft.com/en-us/library/system.windows.eventsetter(v=vs.110).aspx#Anchor_6

Lub w MVVM: http://blog.galasoft.ch/posts/2009/11/mvvm-light-toolkit-v3-alpha-2-eventtocommand-behavior/