LARGURA DA COLUNA NO MSFLEXGRID

   'Função Ajusta as colunas do grid para o tamanho do texto contido nas celulas
   Dim Max_Wid As Single
   Dim Wid As Single
   Dim Max_Row As Integer
   Dim R As Integer
   Dim C As Integer
   Screen.MousePointer = vbHourglass
   'Ajusta as colunas do grid para o tamanho do texto contido nas celulas
   Max_Row = MSFlexGrid1.Rows - 1
   For C = 0 To MSFlexGrid1.Cols - 1
      Max_Wid = 0
      For R = 0 To Max_Row
         Wid = TextWidth(MSFlexGrid1.TextMatrix(R, C))
         If Max_Wid < Wid Then Max_Wid = Wid
      Next R
      MSFlexGrid1.ColWidth(C) = Max_Wid + 240
   Next C
   Screen.MousePointer = vbDefault
   '-----------------------------------------------------------------------------