<code>Private Sub ListView1_DblClick()
  With ListView1
    If Not .SelectedItem Is Nothing Then
      MsgBox "Eintrag: " & .SelectedItem.Text & ", Index: " & CStr( _
        .SelectedItem.Index)
    End If
  End With
End Sub</code>