The following code sets the width of the text of the current cell when the ModHFGrid is in focus.
Sub ModHFGrid1_GotFocus() ModHFGrid1.CellFontWidth =5 End Sub