Dim ltvItem as New ListViewItem
 
ltvItem  = ListView1.Items.Add("Testeintrag")
ltvItem.Tag = "C:\MeinBild.bmp"

'Ereigniss
Private Sub ListView1_Click ........
If  Not IsNothing(ListView1.FocusItem) then
 
'Der Inhalt in der Tag-Eigenschaft ist immer ein "Object", welches wieder 
' umkonvertiert werden muß
Dim pfad as String
 
pfad = cType(ListView1.FocusItem.Tag, String)
PictureBox1.Image = Image.FromFile(pfad)
 
End if
 
End Sub