Imports Infragistics.Win
Private Sub SetupGridImages()
Dim appearance As Appearance = New Appearance()
appearance.ImageBackground = Me.Icon.ToBitmap()
appearance.ImageBackgroundOrigin = ImageBackgroundOrigin.Form
appearance.ImageBackgroundStyle = ImageBackgroundStyle.Stretched
appearance.ImageBackgroundAlpha = Alpha.UseAlphaLevel
appearance.AlphaLevel = 125
appearance.Image = Me.Icon.ToBitmap()
appearance.ImageVAlign = VAlign.Middle
appearance.ImageHAlign = HAlign.Center
Me.ultraGrid1.DisplayLayout.Appearance = appearance
End Sub