Private Sub ListView1_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) _
                            Handles ListView1.Click
Dim BildPfad As String
BildPfad = Microsoft.VisualBasic.Left(Me.ListView1.SelectedItems(0).SubItems( _
  11).Text, _
           Microsoft.VisualBasic.Len(Me.ListView1.SelectedItems(0).SubItems( _
           11).Text) - 3) & "wmf"
...
...

VG

Dirk