Tem uma dica no site mas aki ñ funcionou!

 

alguém sabe como Ajustar colunas no MSHFlexGrid

'With Grid
'    .FormatString = "DATA | HORA | TIPO | DESCRIÇÃO | VALOR | MSG SE LIGADO | MSG SE DESLIGADO | USUÁRIO "
''
WITH MSHFlexGrid
    .ColWidth(0) = 1100                  'TAMANHO DA 1ª COLUNA
    .ColWidth(1) = 1100                  'TAMANHO DA 2ª COLUNA
    .ColWidth(2) = 1100                  'TAMANHO DA 3ª COLUNA
    .ColWidth(3) = 4100                  'TAMANHO DA 4ª COLUNA
END WITH

 

Tente esse código:

 

    Dim Largura As Double, Linha As Integer
    Largura = 0: Linha = 0
    For Linha = 1 To grid1.Rows - 1
        If grid1.TextMatrix(Linha, 1) <> "" Then
            If TextWidth(grid1.TextMatrix(Linha, 1)) > Largura Then
                Largura = TextWidth(grid1.TextMatrix(Linha, 1))
            End If
        End If
    Next
    grid1.ColWidth(1) = Largura + 200

 

No caso estou adequando a largura da coluna 1.... Qualquer duvida da um grito.

T+