The following code sets the text of the current cell to underline whenever the ModHFGrid is in focus.
Sub ModHFGrid1_GotFocus ModHFGrid1.CellFontUnderline =1 End Sub