Private Sub lbFehlermeldung_TextChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles lbFehlermeldung.TextChanged
        Dim listitem As New ListViewItem
 
        If Not MMI.Menueleiste.lbFehlermeldung.Text = Nothing Then
            listitem.BackColor = MMI.Menueleiste.lbFehlermeldung.BackColor
            listitem.Text = System.DateTime.Now & "      " & _
              MMI.Menueleiste.lbFehlermeldung.Text
            MMI.Menueleiste.FehlerFenster.lvFehler.Items.Add(listitem)
            MMI.Menueleiste.Fehlerliste.Enqueue(System.DateTime.Now & "      " _
              & MMI.Menueleiste.lbFehlermeldung.Text)
        End If
 
    End Sub

mfg
rt