CellFontName Property (ModHFGrid) Example

The following code sets the text of the current cell to a specific font type whenever the ModHFGrid is in focus.

Sub ModHFGrid1_GotFocus()
   ModHFGrid1.CellFontName =Screen.Fonts(3)
   ModHFGrid1.Text =Screen.Fonts(3) ' Displays font
                                    ' name.
End Sub