The following code sets the value of the size of the first column. If the AllowUserResizing property is True, the value changes as the user resizes Column 1.
Note If you are using the MSFlexGrid, substitute "MSHFlexGrid1" with "MSFlexGrid1."
Sub Form1_Load()
MSHFlexGrid1.AllowUserResizing = True
End Sub
Sub MSHFlexGrid1_MouseUp (Button As Integer, Shift As _
Integer, X As Single, Y As Single)
MSHFlexGrid1.Text = MSHFlexGrid1.ColWidth(0)
End Sub