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