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.
Sub Form1_Load() ModHFGrid1.AllowUserResizing = True End Sub Sub ModHFGrid1_MouseUp (Button As Integer, Shift As _ Integer, X As Single, Y As Single) ModHFGrid1.Text = ModHFGrid1.ColWidth(0) End Sub