Imports Infragistics.Win
Private Sub SetGridFont()
Dim fd As FontData = Me.UltraGrid1.DisplayLayout.Appearance.FontData
fd.Bold = DefaultableBoolean.True
fd.Italic = DefaultableBoolean.True
fd.Name = "Times New Roman"
fd.Underline = DefaultableBoolean.True
End Sub