este codigo te prodria ayudar
Código:
Private Sub AjustarColumnas()
Me.ListadoPago.ColWidth(0) = 500
Me.ListadoPago.ColWidth(1) = Me.ListadoPago.Width / 12
Me.ListadoPago.ColWidth(2) = Me.ListadoPago.Width / 5
Me.ListadoPago.ColWidth(3) = Me.ListadoPago.Width / 12
Me.ListadoPago.ColWidth(4) = Me.ListadoPago.Width / 6
Me.ListadoPago.ColWidth(5) = Me.ListadoPago.Width / 8
Me.ListadoPago.ColWidth(6) = Me.ListadoPago.Width / 8
Me.ListadoPago.ColWidth(7) = Me.ListadoPago.Width / 12
Me.ListadoPago.ColWidth(8) = Me.ListadoPago.Width / 12
End Sub
en esta parte te das cuenta que el ancho del listado es divido segun yo quiero que se el tamaño de cada columna, en este caso tengo 8 columnas en mi listado(MsFlexgrid)
si tenes dudas avisame ...
nos vemos..