Visual Basic - Sencilla...

Hola a todos!!!

Esta pregunta me parece algo sencilla, pero para otras personas porq a mi no se me ocurre nada...creo q debe ser facil.

Tengo un MSFlexGrid que relleno con datos de una Data1, pero deseo que las columnas del MSFlexGrid tomen el ancho de los datos. Ya intente con este codigo:

Columnas = MSFlexGrid1.Cols
I = 0
Do Until I = Columnas - 1
MSFlexGrid1.ColWidth(I) = TextWidth(MSFlexGrid1.Text)
MSFlexGrid1.Col = I + 1
I = I + 1
Loop

Si, en efecto me pone el ancho de la columna pero con el ancho mas pequeño de los datos, es decir, si el campos tiene 5 caracteres y mas adelante hay uno de 15, lo rellena con el de 5.

Hay alguna manera para que lo rellene con el dato del campo de mas longitud?

Espero haber sido explicito, si no es asi....favor de enviar un mail.

Gracias de antemano!!!

bueno lo que pasa es que se lo asignas por orden, intenta con el siguiente codigo:
May=0
I= 0
Do Until I = Columnas - 1
if may < TextWidth(MSFlexGrid1.Text) then
may=TextWidth(MSFlexGrid1.Text)
MSFlexGrid1.Col = I + 1
I = I + 1
Loop
MSFlexGrid1.ColWidth(I)=may