codice:
Public Sub RidimensionaGriglia(miaGriglia As MSFlexGrid)

Dim i As Integer
Dim intGridWidth As Integer
Dim intColWidthNew As Integer

    intGridWidth = miaGriglia.Width
       
    intColWidthNew = intGridWidth / miaGriglia.Cols
 
    For i = 0 To miaGriglia.Cols - 1
        miaGriglia.ColWidth(i) = intColWidthNew - 70
    Next i
   
End Sub

'---------------------------------------
Private Sub Form_Resize()
FlexGrid1.Height = Me.ScaleHeight - 1110
FlexGrid1.Width = Me.ScaleWidth - 320

RidimensionaGriglia FlexGrid1
End Sub
In teoria dovrebbe funzionare, anche se questa routine ti porta ad avere una largezza uguale per tutte le colonne.
Smanettalo un pochino e vedi cosa ne tiri fuori.

Ciao.