' Start Form soll nur bestimmte Zeilen der Listviewitems anzeigen
Public fehler(-1) As ListViewItem 'LVI zum Verwalten 
 
Private Sub fehler_anzeigen()
        Dim zeile As Integer
       ListView1.Items.Clear()
        For zeile = 0 To fehler.GetUpperBound(0)
            If fehler(zeile).SubItems(1).Text = True Then
                ListView1.Items.Add(fehler(zeile))
                ListView1.Refresh()
            Else
            End If
        Next
    End Sub

'Form2 soll alle item auflisten und zur Bearbeitung bereitstellen
 ListView2.Items.Clear()
        For zeile2 = 0 To mm.fehler.GetUpperBound(0) 'Each fehler(0) In fehler
            ListView2.Items.Add(mm.fehler(zeile2))
        Next