Private Sub setGrid()
Dim i As Integer
    
    With SCGrid1
        .DefaultTextAlign = scWordBreak + scWordEllipsis
Alto de las filas
        .AutoSizeRows 2
    Ancho de columnas, la columna -1 es la fija
        .ColWidth(-1) = 25
        .ColMode(-1) = scCommandButton
        .ColWidth(0) = 0
        .ColWidth(1) = 0
        .ColWidth(2) = 80
        .ColWidth(3) = 150
        .ColWidth(4) = 100
        .ColWidth(5) = 50
        .ColWidth(6) = 70
        .ColWidth(7) = 70
        .ColWidth(8) = 80
        .ColWidth(9) = 70
        
        For i = 0 To .Cols - 1
            .TextAlignment(-1, i) = scTxtCenter + scTxtVCenter
            .CellFontBold(-1, i) = True
            .CellMode(-1, i) = scCommandButton
            .ColMode(i) = scTextBox
        Next i
    End With ' SCGrid1
End Sub
