Con questo sistema mi riduce il il bordo ma non mi allarga le colonne o (celle)...
Il mio script è il seguente :
With Form1.MSFlexGrid1
Do While Not rs.EOF
Form1.MSFlexGrid1.Width = 4000

Form1.MSFlexGrid1.TextMatrix(N, 0) = rs!nome_societa
Form1.MSFlexGrid1.ColWidth(0) = 1000
Form1.MSFlexGrid1.TextMatrix(N, 1) = rs!tipo_societa
Form1.MSFlexGrid1.ColWidth(1) = 1000

Form1.MSFlexGrid1.TextMatrix(N, 2) = rs!citta
Form1.MSFlexGrid1.ColWidth(2) = 1000

Form1.MSFlexGrid1.TextMatrix(N, 3) = rs!email
Form1.MSFlexGrid1.ColWidth(3) = 1000
N = N + 1
rs.MoveNext
Loop
End With

dove metto quello che mi hai scritto?

ps: sono ignorante in vb6