Hola saludos¡

Para los que han usado el S-Grid  aun no encuentro la forma de aisgnarle un width a las columnas, hasta ahora he venido utilizando la propiedad  'AutoWidthColumn', pero esto solo pone el width de acuerdo al contenido devuelto en el recordset para cada celda. El detalle es que a veces el nombre del encabezado no es legible cuado el contenido de la celda es pequeño, ejemplo:

Codigo de Barras    Descripcion
        1                     Ego de Brut

Ahi el AutowidthColumn del codigo de barras es 1, y no es legible el encabezado.

Será que no se puede asignar una ancho de columna como en el Listview estandar del vb o no logro encontrarlo?   

Espero me haya explicado, enseguida viene el code que estoy manejando:

Public Function LoadServicios()
    On Error GoTo Error_Handler
 
    ' -----------------------------------------------
    ' -- Crear nuevo recordset
       Dim rs As New Recordset
    ' -- Cargar la tabla
    ' -----------------------------------------------
 
        Set rs = Conexion.Execute("Una consulta cualquiera'")
 
       If rs.EOF = False Then
        Dim iCol   As Integer
        ' -- Setear Grid
        ' -------------------------------------------
        With vbGrid
        .Clear True
            '.ImageList = vbalImageList2
             .GridLines = True                       ' -- Mostrar Lineas divisorias
             .RowMode = True                         ' -- Seleccionar fila completa
             .HotTrack = False
            ' -- Deshabilitar Redraw para agilizar la carga
              '.AlternateRowBackColor = vbButtonFace
             .Redraw = False
            DoEvents
 
            ' -- Agregar columna para el icono del producto ( Hacerla fija -- Valor FixedWidth)
            ' ----------------------------------------
            '.AddColumn "icono", "", , , 34, , True
 
            ' -- Agregar columnas al Grid - Caption, la clave
            ' ----------------------------------------
            For iCol = 0 To rs.Fields.Count - 1
                 Call .AddColumn(rs(iCol).Name, rs(iCol).Name)
                 '.ColumnWidth = 50
 
 
            Next
 
            ' -- Recorrer el rs
            ' -----------------------------------------
           Do While Not rs.EOF
                ' -- Nueva fila
                .AddRow
                ' -- Cargar la primer celda -- El icono
                'Call .CellDetails(.Rows, .ColumnIndex("icono"), , DT_CENTER, 0)
                ' -- recorrer las demás celdas
                For iCol = 1 To .Columns
                    ' -- Comprobar que el dato no sea un Null
                    If Not IsNull(rs(iCol - 1)) Then
                        ' -- Agregar el dato
                        Call .CellDetails(.Rows, .ColumnIndex(rs(iCol - 1).Name), rs(iCol - 1))
                        .AutoWidthColumn (iCol)
                    End If
                Next
                ' -- Alto de filas = al del icono + 4 pixeles
                ' .DefaultRowHeight = 4 'vbalImageList2.IconSizeX + 4
                ' -- Siguiente registro
                rs.MoveNext
            Loop
            ' -- Importante !! Habilitar nuevamente el Redraw
            ' --------------------------------------------
            .Redraw = True
             DoEvents
        End With
        'consulta = ""
 
        Else
            'msj "¡ NO SE ENCONTRO INFORMACION !"
            'txtDato.Text = "": txtDato.SetFocus
            Exit Function
        End If
        ' -- Cerrar
        rs.Close
        Set rs = Nothing
        ' -- Errores
        Exit Function
Error_Handler:
        MsgBox Err.Description, vbCritical, "Error al Cargar Servicios"
End Function