Private Sub ListView1_DblClick()
  With ListView1
    If Not .SelectedItem Is Nothing Then
      Load frmEdit
      frmEdit.txtInterpret.Text = .SelectedItem.Text
      frmedit.txtTitel.Text = .SelectedItem.SubItems(1)
      frmEdit.txtDateiname.Text = .SelectedItem.SubItems(2)
      ...
      frmEdit.Show 1    
    End If
  End With
End Sub