Public Sub FehlerEintragen()
        Dim item As ListItem
        Dim index As Integer
 
        If Me.cbFehler.Checked = True Then
            index = 1
        End If
        If Me.cbMeldungen.Checked = True Then
            index = 2
        End If
        If Me.cbQuit.Checked = True Then
            index = 3
        End If
        If Me.cbFehler.Checked = True And Me.cbMeldungen.Checked = True Then
            index = 4
        End If
        If Me.cbFehler.Checked = True And Me.cbQuit.Checked = True Then
            index = 5
        End If
        If Me.cbMeldungen.Checked = True And Me.cbQuit.Checked = True Then
            index = 6
        End If
        If Me.cbFehler.Checked = True And Me.cbMeldungen.Checked = True And _
          Me.cbQuit.Checked = True Then
            index = 7
        End If
 
        Try
            MMI.Menueleiste.FehlerFenster.lvFehler.Items.Clear()
        Catch ex As Exception
 
        End Try
 
        If MMI.Fehlerliste.Count > 100 Then
            MMI.Fehlerliste.RemoveRange(0, MMI.Fehlerliste.Count - 100)
        End If
 
        Select Case index
            Case 1
                MMI.Menueleiste.FehlerFenster.Fehlerliste2Fehlerliste()
                For Each item In MMI.Fehlerliste
                    If item.Color.Equals(Color.Red) Then
                        Dim lvi As ListViewItem
                        lvi = New ListViewItem(item.ToString())
                        lvi.ForeColor = item.Color
                        Me.lvFehler.Items.Add(lvi)
                        lvi.EnsureVisible()
                    End If
                Next
            Case 2
                For Each item In MMI.Fehlerliste
                    If item.Color.Equals(Color.Purple) Then
                        Dim lvi As ListViewItem
                        lvi = New ListViewItem(item.ToString())
                        lvi.ForeColor = item.Color
                        Me.lvFehler.Items.Add(lvi)
                        lvi.EnsureVisible()
                    End If
                Next
            Case 3
                For Each item In MMI.Fehlerliste
                    If item.Color.Equals(Color.DarkGreen) Then
                        Dim lvi As ListViewItem
                        lvi = New ListViewItem(item.ToString())
                        lvi.ForeColor = item.Color
                        Me.lvFehler.Items.Add(lvi)
                        lvi.EnsureVisible()
                    End If
                Next
            Case 4
                MMI.Menueleiste.FehlerFenster.Fehlerliste2Fehlerliste()
                For Each item In MMI.Fehlerliste
                    If item.Color.Equals(Color.Red) Or item.Color.Equals( _
                      Color.Purple) Then
                        Dim lvi As ListViewItem
                        lvi = New ListViewItem(item.ToString())
                        lvi.ForeColor = item.Color
                        Me.lvFehler.Items.Add(lvi)
                        lvi.EnsureVisible()
                    End If
                Next
            Case 5
                MMI.Menueleiste.FehlerFenster.Fehlerliste2Fehlerliste()
                For Each item In MMI.Fehlerliste
                    If item.Color.Equals(Color.Red) Or item.Color.Equals( _
                      Color.DarkGreen) Then
                        Dim lvi As ListViewItem
                        lvi = New ListViewItem(item.ToString())
                        lvi.ForeColor = item.Color
                        Me.lvFehler.Items.Add(lvi)
                        lvi.EnsureVisible()
                    End If
                Next
            Case 6
                For Each item In MMI.Fehlerliste
                    If item.Color.Equals(Color.Purple) Or item.Color.Equals( _
                      Color.DarkGreen) Then
                        Dim lvi As ListViewItem
                        lvi = New ListViewItem(item.ToString())
                        lvi.ForeColor = item.Color
                        Me.lvFehler.Items.Add(lvi)
                        lvi.EnsureVisible()
                    End If
                Next
            Case 7
                MMI.Menueleiste.FehlerFenster.Fehlerliste2Fehlerliste()
                For Each item In MMI.Fehlerliste
                    If item.Color.Equals(Color.Red) Or item.Color.Equals( _
                      Color.Purple) Or item.Color.Equals(Color.DarkGreen) Then
                        Dim lvi As ListViewItem
                        lvi = New ListViewItem(item.ToString())
                        lvi.ForeColor = item.Color
                        Me.lvFehler.Items.Add(lvi)
                        Try
                            lvi.EnsureVisible()
                        Catch ex As Exception
                        End Try
                    End If
                Next
        End Select

mfg
rt