Private Sub setGrid()
Dim i As Integer
    
    With SCGrid1
        
        .DefaultTextAlign = scWordBreak + scWordEllipsis
        .AutoSizeRows 2
        'SCGrid1.ColEnabled(3) = False
    
        .ColWidth(-1) = 25
        .ColMode(-1) = scCommandButton
        .ColWidth(0) = 90
        .ColWidth(1) = 60
        .ColWidth(2) = 100
        .ColWidth(3) = 90
        .ColWidth(4) = 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
La columna 5 es una Casilla de Verificacin
        .ColMode(4) = scCheckBox
        
        .SortType(0) = scAlphaNum
        .SortType(1) = scAlphaNum
        .SortType(2) = scAlphaNum
        .SortType(3) = scAlphaNum
        
    End With ' SCGrid1
End Sub
