From 1bb7d5c7374aa48e30713279ec334921882c8fb1 Mon Sep 17 00:00:00 2001
From: SchreiberM <m.schreiber@didalog.de>
Date: Mon, 14 Mar 2016 16:50:50 +0100
Subject: [PATCH] MS14032016

---
 app/DD-Record-Organiser/frmCockpit.vb | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/app/DD-Record-Organiser/frmCockpit.vb b/app/DD-Record-Organiser/frmCockpit.vb
index 5839cdd..2fab8ad 100644
--- a/app/DD-Record-Organiser/frmCockpit.vb
+++ b/app/DD-Record-Organiser/frmCockpit.vb
@@ -13,6 +13,8 @@
             captiongrbx = CURRENT_TASKS_GENERAL.Rows.Count & " Tasks - Team/Group"
             grbxTasksGeneral.Text = captiongrbx
             Dim i As Integer
+            Dim _col As Color = Color.White
+
 
             For Each row As DataRow In CURRENT_TASKS_GENERAL.Rows
                 'Dim i = row.Item(0)
@@ -23,12 +25,17 @@
                     '.SubItems.Add(row.Item(1))
                     '.SubItems.Add("Dritte Spalte")
                     .Tag = row.Item(0)
+                    .BackColor = _col
                 End With
                 i += 1
-              
-                    If i Mod 2 = 0 Then
-                        ListViewTasksGeneral.Items(i).BackColor = Color.Lavender
-                    End If
+                '   ListViewTasksGeneral.Items(i).BackColor = _col
+                If _col = Color.White Then
+                    _col = Color.Lavender
+                Else
+                    _col = Color.White
+                End If
+                
+                
             Next
         Catch ex As Exception