Private Sub adjustColWidth()
Dim Max As Integer
Dim i As Integer
Dim j As interger
For j = 0 To MSFlexGrid1.Cols - 1
Max = 0
For i = 0 To MSFlexGrid1.Rows - 1
If Len(Trim(MSFlexGrid1.TextMatrix(i, j))) > Max Then Max = Len(Trim(MSFlexGrid1.TextMatrix(i, j)))
Next i
MSFlexGrid1.ColWidth(j) = Max * 300
Next j
End Sub