Ancho de celdas flex grid

[elezekiel]

otra vez yo molestando xD

Tengo un flexgrid el cual obtengo info de una base de datos, lo que quiero hacer es que cada columna tenga el ancho que corresponde asi se ven los datos completos, actualmente pude hacerlo pero a medias, ya que recorro todo el flex y establezco el ancho de la columna mayor para el resto de las celdas, ahora bien, tengo una columna que es "comentarios" que puede haber muchas cosas, y despues tengo el campo ID, que es autonumerico, entonces no quiero que tenga el ancho de ID como el de "comentarios" porque me sobra mucho espacio, el usuario puede redimensionar el flex pero yo quiero que salga ya listo para leer, este es el code que tengo que me revisa todos los anchos y establece el mayor:

Código (vb) [Seleccionar] Expandir

Dim TamActCelda As Integer
Dim TamMayor As Integer
Dim xRow As Integer
Dim yCol As Integer
TamMayor = 0
For yCol = 0 To FlexClientes.Cols - 1
    For xRow = 0 To FlexClientes.Rows - 1
        TamActCelda = Me.TextWidth(FlexClientes.TextMatrix(xRow, yCol))
        If TamMayor <> 0 Then
           If TamMayor < TamActCelda Then
              TamMayor = TamActCelda
           End If
        Else
           TamMayor = TamActCelda
        End If
    Next xRow
Next yCol
'asigna tamaño
Dim iAsig As Integer
Dim xAsig As Integer
For iAsig = 0 To FlexClientes.Cols - 1
    For xAsig = 0 To FlexClientes.Rows - 1
    FlexClientes.ColWidth(iAsig) = TamMayor
    Next xAsig
Next iAsig

Ando perdido para eso si me dan una mano... gracias!!