WPF

<RichTextBox Height="476" ScrollViewer.HorizontalScrollBarVisibility="Auto"  ScrollViewer.VerticalScrollBarVisibility="Auto" HorizontalAlignment="Left" Margin="8,36,0,0" Name="dutRtx" VerticalAlignment="Top" Width="Auto" IsReadOnly="True" FontSize="11" FontFamily="Segoe UI" Cursor="Arrow">
                    <RichTextBox.Resources>
                        <Style TargetType="{x:Type Paragraph}">
                            <Setter Property="Margin" Value="4pt"/>
                            <Setter Property="LineHeight" Value="6.3pt"/>
                            <Setter Property="FontSize" Value="9pt" />
                            <Setter Property="LineStackingStrategy" Value="BlockLineHeight" />
                        </Style>
                    </RichTextBox.Resources>
                   <FlowDocument>
                            <Paragraph FontSize="9pt" LineHeight="4pt" LineStackingStrategy="BlockLineHeight"></Paragraph>
                        <Paragraph>

                        </Paragraph>
                    </FlowDocument>

                    </RichTextBox>

<Window
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:d="http://schemas.microsoft.com/expression/blend/2008" xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" mc:Ignorable="d" x:Class="Window6"
    Title="MainWindow" Height="394" Width="324">
    <Window.Resources>
        <!-- ********** Button template **********-->
        <Style x:Key="Arrow" TargetType="{x:Type Button}">
            <Setter Property="Template">
                <Setter.Value>
                    <ControlTemplate TargetType="{x:Type Button}" x:Name="CTarrow">
                        <ControlTemplate.Resources>
                            <Storyboard x:Key="Storyboard1" RepeatBehavior="Forever" AutoReverse="True">
                                <ColorAnimationUsingKeyFrames Storyboard.TargetProperty="(Shape.Fill).(SolidColorBrush.Color)" Storyboard.TargetName="rectangle">
                                    <DiscreteColorKeyFrame KeyTime="0" Value="#FF0080FF"/>
                                    <DiscreteColorKeyFrame KeyTime="0:0:0.5" Value="#FF004D99"/>
                                    <DiscreteColorKeyFrame KeyTime="0:0:0.8" Value="#FF0080FF"/>
                                </ColorAnimationUsingKeyFrames>
                            </Storyboard>
                        </ControlTemplate.Resources>
                        <Grid>
                            <ContentPresenter RecognizesAccessKey="True" SnapsToDevicePixels="{TemplateBinding SnapsToDevicePixels}" HorizontalAlignment="Center" VerticalAlignment="Center" />
                            <Rectangle x:Name="rectangle" Height="30" Width="50" Fill="Black" />
                        </Grid>
                    </ControlTemplate>
                </Setter.Value>
            </Setter>
        </Style>    
    </Window.Resources>
    
    <Grid>
          <Button HorizontalAlignment="Left" VerticalAlignment="Top" Style="{DynamicResource Arrow}" x:Name="Arrow" />
   </Grid>
</Window>

Dim myStoryboard As New Storyboard
myStoryboard = Arrow.FindResource("Storyboard1")
myStoryboard.Begin()

Dim myStoryboard As New Storyboard
myStoryboard = CType(Me.Resources("Storyboard1"), Storyboard)
myStoryboard.Begin(Arrow)

Dim myStoryboard As Storyboard = TryCast(Arrow.Template.Resources("Storyboard1"), Storyboard)
If myStoryboard IsNot Nothing Then
  myStoryboard.Begin(Arrow)
End If

Dim ct As ControlTemplate = TryCast(Me.FindName("CTarrow"), ControlTemplate)
If ct IsNot Nothing Then
   Debug.Print("ControlTemplate found")
   Dim sb As Storyboard = TryCast(ct.Resources("Storyboard1"), Storyboard)
   If sb IsNot Nothing Then
     sb.Begin()
     Debug.Print("Storyboard found")
   End If
End If

<Style TargetType="{x:Type DatePickerTextBox}">
                <Setter Property="FontSize" Value="16"/>                
                <Setter Property="Control.Template">
                    <Setter.Value>
                        <ControlTemplate>
                            <TextBox x:Name="PART_TextBox"
                                    Text="{Binding Path=SelectedDate, StringFormat='yyyy/MM/dd', 
                                    RelativeSource={RelativeSource AncestorType={x:Type DatePicker}}}"/>                             
                        </ControlTemplate>
                    </Setter.Value>                    
                </Setter>
            </Style>

<ListBox x:Name="myListBox" HorizontalAlignment="Left" Height="100"
     VerticalAlignment="Top" Width="200">
    <ListBox.ItemTemplate>
        <DataTemplate>
            <ItemsControl ItemsSource="{Binding theList}">
                <ItemsControl.ItemTemplate>
                    <DataTemplate>
                        <StackPanel Orientation="Horizontal" Width="auto">
                            <TextBlock Text="{Binding Path=Key}" />
                            <TextBlock Text="{Binding Path=Value}" />
                        </StackPanel>
                    </DataTemplate>
                </ItemsControl.ItemTemplate>
            </ItemsControl>
        </DataTemplate>
    </ListBox.ItemTemplate>
</ListBox>

public Dictionary<string, string> theDictionary;
private List<Dictionary<string, string>> _theList;
public const string theListPropertyName = "theList";
public List<Dictionary<string, string>> theList
{
    get
    {
        return _theList;
    }
    set
    {
        if (_theList == value)
            return;
        _theList = value;
        RaisePropertyChanged(theListPropertyName);
    }
}
public MainViewModel(IDataService dataService)
{
    List<Dictionary<string, string>> x = new List<Dictionary<string, string>>();
    theDictionary = new Dictionary<string, string>();
    theDictionary.Add("1", "A");
    theDictionary.Add("2", "B");
    theList = new List<Dictionary<string, string>>();
    theList.Add(theDictionary);

}