<Window x:Class="Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:local="clr-namespace:WpfApplication1"
    Title="Window1" Height="277" Width="333" _
      xmlns:my="http://schemas.microsoft.com/wpf/2008/toolkit">
    <Window.Resources>
        <Style x:Key="LBStyle" TargetType="{x:Type ListBoxItem}">
            <Setter Property="Template">
                <Setter.Value>
                    <ControlTemplate TargetType="{x:Type ListBoxItem}">
                        <Border Name="Border1">
                            <ContentPresenter Content="{Binding}" _
                              ></ContentPresenter>
                        </Border>
                        <ControlTemplate.Triggers>
                            <Trigger Property="IsMouseOver" Value="True">
                                <Setter TargetName="Border1" _
                                  Property="Background" Value="Green"></Setter>
                            </Trigger>
                            <Trigger Property="IsSelected" Value="True">
                                <Setter TargetName="Border1" _
                                  Property="Background" Value="Red"></Setter>
                            </Trigger>
                        </ControlTemplate.Triggers>
                    </ControlTemplate>
                </Setter.Value>
 
            </Setter>
        </Style>
    </Window.Resources>
    <Grid>
        <ListBox ItemsSource="{Binding SourceData," & _
          "RelativeSource={RelativeSource FindAncestor, AncestorType={x:Type" & _
          "Window}}}" ItemContainerStyle="{StaticResource LBStyle}" _
          Margin="12,12,114,12" Name="ListBox1" />
        <Button Height="23" HorizontalAlignment="Right" Margin="0,22,20,0" _
        Name="btnAdd" VerticalAlignment="Top" Width="75">Add</Button>
        <Button Height="23" HorizontalAlignment="Right" Margin="0,51,20,0" _
        Name="btnDelete" VerticalAlignment="Top" Width="75">Delete</Button>
    </Grid>
</Window>

Imports System.ComponentModel
 
Class Window1
 
    Private mSource As New BindingList(Of String)
 
    Public Property SourceData() As BindingList(Of String)
        Get
            Return mSource
        End Get
        Set(ByVal value As BindingList(Of String))
            mSource = value
        End Set
    End Property
 
    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As _
      System.Windows.RoutedEventArgs) Handles btnAdd.Click
        mSource.Add(Date.Now.ToLongTimeString)
    End Sub
 
    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As _
      System.Windows.RoutedEventArgs) Handles btnDelete.Click
        If ListBox1.SelectedItem IsNot Nothing Then mSource.Remove( _
        ListBox1.SelectedItem.ToString)
    End Sub
 
End Class