ENUMERAR A PRIMEIRA COLUNA DO FLEXGRID

Private Sub FormatarGrid1()
With Grid1
    
    .Clear
    .Cols = 8
    .Rows = 2
    
    .ColWidth(0) = 0
    .ColWidth(1) = 0
    .ColWidth(2) = 0
    .ColWidth(3) = 0
    .ColWidth(4) = 4400
    .ColWidth(5) = 1000
    .ColWidth(6) = 1000
    .ColWidth(7) = 1200
  
    .TextMatrix(0, 1) = [Ô]COD[Ô]
    .TextMatrix(0, 2) = [Ô]COD_ETAPA[Ô]
    .TextMatrix(0, 3) = [Ô]COD_MOTOQUEIRO[Ô]
    .TextMatrix(0, 4) = [Ô]NOME[Ô]
    .TextMatrix(0, 5) = [Ô]INICIO[Ô]
    .TextMatrix(0, 6) = [Ô]TERMINO[Ô]
    .TextMatrix(0, 7) = [Ô]RESULTADO[Ô]

    
    [ô]colocar os cabeçalho em negrito
    Dim X As Integer
    For X = 0 To .Cols - 1
    .Col = X
    .Row = 0
    .CellFontBold = True
    Next X
    
    [ô]centralizar o titulo
    Dim f As Integer
    For f = 0 To .Cols - 1
    .Row = 0
    .Col = f
    .CellAlignment = flexAlignCenterCenter
    Next f
    
    Do Until Rs.EOF
    
    [ô]mudar a cor da coluna
    Dim i As Integer
    For i = 1 To .Rows - 1
    .Row = i
    .Col = 7:   .CellBackColor = &HC0FFFF
    Next

    
    .Redraw = False
    
    [ô]ALINHAMENTO
    [ô].ColAlignment(2) = 1
    
    .Redraw = True
    
    var_INICIO = Rs.Fields!INICIO
    var_TERMINO = Rs.Fields!TERMINO
    var_RESULTADO = var_INICIO - var_TERMINO
    
    If Not IsNull(Rs!CODIGO) Then .TextMatrix(.Rows - 1, 1) = Rs!CODIGO
    If Not IsNull(Rs!COD_ETAPA) Then .TextMatrix(.Rows - 1, 2) = Rs!COD_ETAPA
    If Not IsNull(Rs!COD_MOTOQUEIRO) Then .TextMatrix(.Rows - 1, 3) = Rs!COD_MOTOQUEIRO
    If Not IsNull(Rs!NOME) Then .TextMatrix(.Rows - 1, 4) = Rs!NOME
    If Not IsNull(Rs!INICIO) Then .TextMatrix(.Rows - 1, 5) = Rs!INICIO
    If Not IsNull(Rs!TERMINO) Then .TextMatrix(.Rows - 1, 6) = Rs!TERMINO
    If Not IsNull(var_RESULTADO) Then .TextMatrix(.Rows - 1, 7) = var_RESULTADO
    Rs.MoveNext
    .Rows = .Rows + 1
        
    Loop
    
    .Rows = .Rows - 1
    
End With
End Sub