The following code sets the text of the current cell to Italic whenever the MSHFlexGrid is in focus.
Note If you are using the MSFlexGrid, substitute "MSHFlexGrid1" with "MSFlexGrid1."
Sub MSHFlexGrid1_GotFocus()
MSHFlexGrid1.CellFontItalic =True
End Sub