Supongo que lo que deseas es definir la anchura de las columnas...
Esto te lo resolverá:
___________________________
Dim aAncho
Private Sub Form_Load()
' Aquí parametrizas la anchura de las columnas que quieras visualizar; por ejemplo:
aAncho = Array(1350, 3700, 2030, 3000, 550, 2000)
End Sub
Private Sub DoInitialSettings()
Dim i%
FlexGrid1.Row = 0
FlexGrid1.ColAlignment(0) = 7
For i = 0 To FlexGrid1.Cols - 1
' Establece la anchura de la columna
FlexGrid1.ColWidth(i) = aAncho(i)
' Otros parámetros que puedan interesarte...
FlexGrid1.Col = i
FlexGrid1.CellFontSize = 14
FlexGrid1.CellAlignment = 4
Next i
FlexGrid1.ScrollTrack = True
FlexGrid1.CellTextStyle = flexTextInset
FlexGrid1.BorderStyle = flexBorderSingle
End Sub
__________________________
Saludos
