Private Sub setGrid()
Dim i As Integer
    
    With SCGrid1
        .DefaultTextAlign = scWordBreak + scWordEllipsis
        .AutoSizeRows 2
    Columna (-1), es la columna fija, en forma de botn de comando
        .ColWidth(-1) = 25
        .ColMode(-1) = scCommandButton
Hay una columna escondida, es el consecutivo de la fila en el Grid
        .ColWidth(0) = 0
        .ColWidth(1) = 100
        .ColWidth(2) = 120
        .ColWidth(3) = 80
        .ColWidth(4) = 60
        .ColWidth(5) = 50
        .ColWidth(6) = 50
        .ColWidth(7) = 60
        .ColWidth(8) = 50
        .ColWidth(9) = 65
        .ColWidth(10) = 70
        .ColWidth(11) = 60
        
        For i = 0 To .Cols - 1
            .TextAlignment(-1, i) = scTxtCenter + scTxtVCenter
            .CellFontBold(-1, i) = True
            .CellMode(-1, i) = scCommandButton
            .ColMode(i) = scTextBox
        Next i
         Columna 11 es una casilla de verificacin
        .ColMode(11) = scCheckBox
        
        .SortType(1) = scAlphaNum
        .SortType(2) = scAlphaNum
        .SortType(3) = scAlphaNum
    End With ' SCGrid1
End Sub
