risolto

ho modificato il codice e funge bene.

riporto il codice modificato per eventuali interessati

codice:
Public Sub RidimensionaGriglia(miaGriglia As MSFlexGrid)

Dim intGridWidth As Integer
Dim intColWidthNew, dimen As Integer

    intGridWidth = miaGriglia.Width
    dimen = 870
    intColWidthNew = intGridWidth / 4 'in numero delle col
       
    miaGriglia.ColWidth(1) = intColWidthNew - dimen
    miaGriglia.ColWidth(2) = intColWidthNew - dimen
    miaGriglia.ColWidth(4) = intColWidthNew - dimen
    miaGriglia.ColWidth(6) = intColWidthNew - dimen
      
End Sub
ciao jank
e di nuovo grazie

by
gyonny