Public Sub EreignisAdd(ByVal Ereignis As String, ByVal IP As String, ByVal Name _
  As String, ByVal Farbe As Color)
        Dim tempValue As Integer = 0
        Dim dt As DateTime
        dt = DateTime.Now
 
        'ListViewItem erstellen
        Dim lvi As New ListViewItem
 
        ' Erste Spalte und Farbe
        lvi.Text = dt.ToString
        lvi.BackColor = Farbe
 
        'Zweite Spalte (erstes SubItem)
        tempValue = tempValue + 1
        lvi.SubItems.Add(Ereignis)
 
        ' Dritte Spalte
        tempValue = tempValue + 1
        lvi.SubItems.Add(IP)
 
        ' Und das ist noch die vierte
        tempValue = tempValue + 1
        lvi.SubItems.Add(Name)
 
 
        ' Add the ListViewItem to the ListView
        Form5.ListView1.Items.Add(lvi)
 
    End Sub