Private Sub setGrid()
Dim i As Integer
    
    With SCGrid1
        .DefaultTextAlign = scWordBreak + scWordEllipsis
        .AutoSizeRows 2
        Ancho de cada una de las columnas
        .ColWidth(-1) = 25
        .ColMode(-1) = scCommandButton
        .ColWidth(0) = 0
        .ColWidth(1) = 80
        .ColWidth(2) = 150
        .ColWidth(3) = 90
        .ColWidth(4) = 50
        .ColWidth(5) = 80
        .ColWidth(6) = 90
        
        For i = 0 To .Cols - 1
            .TextAlignment(-1, i) = scTxtCenter + scTxtVCenter
            .CellFontBold(-1, i) = True
            .CellMode(-1, i) = scCommandButton
            .ColMode(i) = scTextBox
        Next i
        
        .SortType(1) = scAlphaNum
        .SortType(2) = scAlphaNum
        .SortType(3) = scNumeric
        .SortType(4) = scAlphaNum
        .SortType(5) = scNumeric
        .SortType(6) = scNumeric
   End With ' SCGrid1
End Sub
