Public Sub FehlerEintragen()
        Dim i As Integer
        Dim item As ListViewItem
 
 
        MMI.Menueleiste.FehlerFenster.lvFehler.Items.Clear()
 
        If MMI.Menueleiste.Fehlerliste.Count > 0 Then
            If Me.cbFehler.Checked = True Then
                For i = 0 To MMI.Menueleiste.Fehlerliste.Count - 1
                    If MMI.Menueleiste.Fehlerliste.Item(i).GetType.Equals( _
                      Color.Red) Then
                        item = MMI.Menueleiste.Fehlerliste.Item(i)
                        MMI.Menueleiste.FehlerFenster.lvFehler.Items.Add(item)
                    End If
                Next
            End If
 
        Else
            Exit Sub
        End If
 
    End Sub

mfg
rt