<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="300" Name="UserControl1">
    <Grid>
        <ListView Name="ListView1" ItemsSource="{Binding}" />
    </Grid>
</UserControl>

Class UserControl1 
    Public Event ItemSelected(ByVal sender As Object, ByVal item As Object)
 
    Private Sub UserControl1_DataContextChanged(ByVal sender As System.Object, _
      ByVal e As System.Windows.DependencyPropertyChangedEventArgs) Handles _
      MyBase.DataContextChanged
        Me.ListView1.DataContext = e.NewValue
    End Sub
 
    Private Sub ListView1_SelectionChanged(ByVal sender As Object, ByVal e As _
      SelectionChangedEventArgs) Handles ListView1.SelectionChanged
        If e.AddedItems.Count > 0 Then
            RaiseEvent ItemSelected(Me, e.AddedItems(e.AddedItems.Count - 1))
        End If
    End Sub
End Class

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim lv As New WpfControlLibrary1.UserControl1
        AddHandler lv.ItemSelected, AddressOf ListView_ItemSelected
        lv.DataContext = New String() {"Test1", "Test2"}
        ElementHost1.Child = lv
    End Sub
 
    Private Sub ListView_ItemSelected(ByVal sender As Object, ByVal item As _
      Object)
        Debug.WriteLine("Item selected: " & item.ToString)
    End Sub
 
End Class