Private Sub SetListviewItemColor(ByVal TargetListView As ListView, ByVal _
     ItemIndex As Integer, ByVal NewColor As Color)
        Try
            If TargetListView Is Nothing Then Throw New Exception("Listview" & _
              "nicht vorhanden.")
            If ItemIndex < 0 OrElse ItemIndex > TargetListView.Items.Count - _
            1 Then Throw New Exception("Index nicht zulässig.")
            For Each LI As ListViewItem In TargetListView.Items
                If LI.Index = ItemIndex Then
                    LI.ForeColor = NewColor
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
        End Try
    End Sub

        Me.SetListviewItemColor(ListView1, 1, Color.Red)