Как проверить CheckBox в ListView XAML? - Visual Basic .NET

<Window x:Class="MainWindow"
        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"
        xmlns:local="clr-namespace:WpfApplication2"
        mc:Ignorable="d"
        Title="MainWindow" Height="350" Width="525">
    <Grid>
        <ListView x:Name="lv" 
        Margin="5,5,5,76">
            <ListView.View>
                <GridView AllowsColumnReorder="False">
                    <GridViewColumn Header="Title" DisplayMemberBinding="{Binding Title}"/>
                    <GridViewColumn Header="BoolValue">
                        <GridViewColumn.CellTemplate>
                            <DataTemplate>
                                <CheckBox IsChecked="{Binding BoolValue}"/>
                            </DataTemplate>
                        </GridViewColumn.CellTemplate>
                    </GridViewColumn>
                </GridView>
            </ListView.View>
        </ListView>
        <Button x:Name="button" Content="Button" HorizontalAlignment="Left" Margin="194,274,0,0" VerticalAlignment="Top" Width="75"/>
    </Grid>
</Window>

Class MainWindow
 
    Public Class ListViewItemTemplate
        Public Property Title As String
        Public Property BoolValue As Boolean
        ' Public Property Num As Integer
    End Class
    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
        Dim itemsList As New List(Of ListViewItemTemplate)
        Dim item As New ListViewItemTemplate
 
        item = New ListViewItemTemplate
        item.Title = "2"
        item.BoolValue = False
        itemsList.Add(item)
 
        item = New ListViewItemTemplate
        item.Title = "3"
        item.BoolValue = False
        itemsList.Add(item)
 
        lv.ItemsSource = itemsList
 
    End Sub
 
    Private Sub button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click
        'MessageBox.Show("Text:" +)
    End Sub
 
End Class