Visual Basic - semafo de criticidad

Const Color1 As Long = &HFF&

Const Color2 As Long = &HFFFF&

Const Color3 As Long = &HFF00&

Private Sub Command1_Click()

  Dim Columna As Long, Fila As Long

  Dim Color As Long

 'Color inicial de la fila

  Color = Color1

  With MSFlexGrid1

   FixedCols = 0

  'Deshabilita el repintado del control para agilizar

  .Redraw = False

  'Recorre las filas

  For Fila = 1 To .Rows - 1

  'Establecemos la Fila actual del flex

  .Row = Fila

  'Intercambia el color para cada fila

  'If Color = Color1 Then

   Color = Color2

  'Else

  'Color = Color1

  'End If

  'Recorre por columna y le aplica el color a la celda indicada de la fila actual

  'For Columna = 0 To .Cols - 1

  .Col = 2 'Columna

  .CellBackColor = Color

  'Next

   Next

  'Reestablece la propiedad Redraw

  .Redraw = True

  End With

End Sub

If UCase(MSFlexGrid1.TextMatrix(.Row, 2)) = "ALTA" Then

     Color = Color1

  ElseIf UCase(MSFlexGrid1.TextMatrix(.Row, 2)) = "MEDIA" Then

     Color = Color2

  ElseIf UCase(MSFlexGrid1.TextMatrix(.Row, 2)) = "BAJA" Then

     Color = Color3

   End If