Como definir tamaño de celdas en un MSFLEXGRID

[XYON126]

Hola!

He estado haciendo pruebas y siempre me sale lo mismo,un MSFLEXGRID que al final en la ultima columna de la derecha se me genera un espacio entre esta y el narco del mismo de un tamaño similar al de la columna algo mas pequeño prox. un 30% menos; he buscado el tamaño del Label en mi caso 1000 y el codigo generado es este :

Codigo:

Código vb:

Private Sub Form_Load()
Dim nrcol As Integer
 
nrcol = 0
 
For nrcol = 0 To MSFlexGrid1.Cols - 1
 
      ' Asignamos la Columa
      MSFlexGrid1.Col = nrcol
       ' Ahora podemos asignarle el tamaño que queramos
      MSFlexGrid1.ColWidth(nrcol) = 1000
Next
 
End Sub
 

Como puedo eliminar ese escedente que no se porque me sale.

Nota.: He probado tambien con :

Código vb:

MSFlexGrid1.ColWidth(nrcol) = lbl_Milabel.Width
 

Un saludo