Dim colorestringa As String = stringArray(6)
Select True
Case colorestringa = "2"
Log("Il Valore era 2")
ListView1.TwoLinesAndBitmap.SecondLabel.TextColor = Colors.Cyan
ListView1.AddTwoLinesAndBitmap2(lvd.FirstRow,lvd.SeconRow,lvd.Picture,lvd)
Case colorestringa = "0"
Log("Il Valore era 0")
ListView1.TwoLinesAndBitmap.SecondLabel.TextColor = Colors.Yellow
ListView1.AddTwoLinesAndBitmap2(lvd.FirstRow,lvd.SeconRow,lvd.Picture,lvd)
Case colorestringa = "1"
Log("Il Valore era 1")
ListView1.TwoLinesAndBitmap.SecondLabel.TextColor = Colors.Green
ListView1.AddTwoLinesAndBitmap2(lvd.FirstRow,lvd.SeconRow,lvd.Picture,lvd)
End Select