Imports Infragistics.Win ... Private Sub Applying_Appearances_to_Calculator_Controls_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' Set UseOsThemes and UseAppStyling to false so that gradients ' will be applied that are created Me.UltraCalculator1.UseOsThemes = DefaultableBoolean.False Me.UltraCalculator1.UseAppStyling = False ' Create the appearance objects in code Dim app1 As New Appearance() Dim app2 As New Appearance() Dim app3 As New Appearance() Dim app4 As New Appearance() ' Set properties of the appearance1 in code app1.FontData.SizeInPoints = 25 app1.BackColor = Color.White app1.BackColor2 = Color.Yellow app1.BackGradientStyle = GradientStyle.Circular app1.ForeColor = Color.DarkGreen app1.TextHAlign = HAlign.Right app1.Cursor = Cursors.Cross ' Set propeties for the appearance2 app2.BackColor = Color.Yellow app2.BackColor2 = Color.Green app2.BackGradientStyle = GradientStyle.BackwardDiagonal app2.FontData.Bold = DefaultableBoolean.True app2.FontData.Italic = DefaultableBoolean.True app2.TextHAlign = HAlign.Center app2.FontData.SizeInPoints = 15 app2.Cursor = Cursors.Help ' Add properties for appeareance 3 app3.TextHAlign = HAlign.Center app3.BackColor = Color.DodgerBlue app3.BackColor2 = Color.Gainsboro app3.BackGradientStyle = GradientStyle.HorizontalBump ' Add properties to the last appearance app4.BackColor = Color.Black app4.BackHatchStyle = BackHatchStyle.DarkVertical app4.AlphaLevel = 150 app4.BackGradientStyle = GradientStyle.VerticalBump ' Apply the appeareance for the buttonAppeareance, ' overides calculator appearance ' but does not overide individual button appearances Me.UltraCalculator1.ButtonAppearance = app3 ' Set appearance for an individual button, overrides ' all preceding appearances Me.UltraCalculator1.Buttons("+").Appearance = app2 Me.UltraCalculator1.Buttons("=").Appearance = app1 ' Appearance for entire calculator, applies ' to entire element and any appearance that ' has not been overidden by ' ButtonAppearance or individual button appearances Me.UltraCalculator1.Appearance = app4 End Sub