<UserControl x:Class="UserControl1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Height="300" Width="450">
    <Grid>
        <ListView Name="ListView1">
            <ListView.View>
                <GridView>
                    <GridViewColumn Width="100" Header="Media Name" _
                      DisplayMemberBinding="{Binding MediaName}" />
                    <GridViewColumn Width="100" Header="Media Type" _
                    DisplayMemberBinding="{Binding MediaType}"/>
                </GridView>
            </ListView.View>
        </ListView>
    </Grid>
</UserControl>
 
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Collections.ObjectModel
 
 
Class UserControl1
 
    Public Event ItemSelected(ByVal sender As Object, ByVal item As MediaData)
 
    Public Class MediaData
        Private _MediaName As String
        Public Property MediaName() As String
            Get
                Return _MediaName
            End Get
            Set(ByVal value As String)
                _MediaName = value
            End Set
        End Property
        Private _MediaType As String
        Public Property MediaType() As String
            Get
                Return _MediaType
            End Get
            Set(ByVal value As String)
                _MediaType = value
            End Set
        End Property
        Private _Publisher As String
    End Class
 
    Private Sub UserControl1_Loaded(ByVal sender As Object, ByVal e As _
      System.Windows.RoutedEventArgs) Handles Me.Loaded
        Dim temp As New MediaData
        temp.MediaName = "Test"
        temp.MediaType = "Type"
        ListView1.Items.Add(temp)
    End Sub
 
    Public Sub AddNewItem(ByVal newitem As MediaData)
        ListView1.Items.Add(newitem)
    End Sub
 
    Private Sub listView_PreviewMouseDown(ByVal sender As Object, ByVal e As _
      MouseButtonEventArgs) Handles ListView1.PreviewMouseDown
        Dim clickedToDoItem As MediaData
        Dim dep As DependencyObject = CType(e.OriginalSource, DependencyObject)
        Do While dep IsNot Nothing AndAlso Not TypeOf (dep) Is ListViewItem
            dep = VisualTreeHelper.GetParent(dep)
        Loop
        If dep Is Nothing Then
            Return
        Else
            clickedToDoItem = CType( _
              Me.ListView1.ItemContainerGenerator.ItemFromContainer(dep), _
              MediaData)
        End If
        RaiseEvent ItemSelected(Me, clickedToDoItem)
    End Sub
End Class
 
 
Imports TEST_ListView.UserControl1
 
Public Class Form1
 
    Dim lv As New TEST_ListView.UserControl1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AddHandler lv.ItemSelected, AddressOf ListView_ItemSelected
    End Sub
 
    Private Sub ListView_ItemSelected(ByVal sender As Object, ByVal item As _
      MediaData)
        MsgBox(item.MediaName & item.MediaType)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim temp As New MediaData
        temp.MediaName = "Test2"
        temp.MediaType = "Test2"
        lv.AddNewItem(temp)
    End Sub
End Class