Private Sub lstArtikel_DoubleClick(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles lstArtikel.DoubleClick
 
 
        Dim frmAuftrag As New Auftragserfassung()
        Dim lv As ListViewItem
        lv = lstArtikel.SelectedItems(0)
        frmAuftrag.txtArtikelNr.Text = (lv.SubItems(0).Text)
 
 
    End Sub