Private Sub setGrid()
Dim i As Integer
    
    With SCGrid1
		Alineacin y alto de las filas del Grid	
        .DefaultTextAlign = scWordBreak + scWordEllipsis
        .AutoSizeRows 2
       El Grid tiene 10 columnas, adems de una columna fija (-1), y una fila
fija (-1). Se establece el ancho de las columnas
        .ColWidth(-1) = 25
        .ColMode(-1) = scCommandButton
        .ColWidth(0) = 0
        .ColWidth(1) = 130
        .ColWidth(2) = 100
        .ColWidth(3) = 80
        .ColWidth(4) = 60
        .ColWidth(5) = 60
        .ColWidth(6) = 60
        .ColWidth(7) = 75
        .ColWidth(8) = 75
        .ColWidth(9) = 75
              Alineacin y formato de cada columna del Grid 
        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 1 y 2 mostrarn un ComboBox, es donde se almacena el
concepto de pago y la forma de pago
        .ColMode(1) = scComboListBox
        .ColMode(2) = scComboListBox
        .SortType(1) = scAlphaNum
        .SortType(2) = scAlphaNum
        .SortType(3) = scAlphaNum
    End With
End Sub
