Imports Infragistics.Win
Imports Infragistics.Win.UltraWinEditors
Imports Infragistics.Win.UltraWinEditors.UltraWinCalc
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Set Text Display Properties
Me.UltraCalculator1.AutoDetectDecimalSymbol = False
Me.UltraCalculator1.AutoDetectGroupSymbol = False
Me.UltraCalculator1.DecimalSymbol = ","
Me.UltraCalculator1.DigitGrouping = True
Me.UltraCalculator1.GroupSymbol = "."
' Set UI Display Properties.
Me.UltraCalculator1.ShowMemoryButtons = False
' Show Custom Buttons so we can implement custom functionality in
'response to the ActionButtonPressed events.
Me.UltraCalculator1.ShowCustomButtons = True
Me.UltraCalculator1.Buttons("C1").Text = "F1"
Me.UltraCalculator1.Buttons("C8").Text = "Update"
Dim Button As CalculatorButton = Me.UltraCalculator1.Buttons("C5")
Button.Text = "+100"
Button.Appearance.BackColor = System.Drawing.Color.OliveDrab
' Hide the rest
Me.UltraCalculator1.Buttons("C2").Visible = False
Me.UltraCalculator1.Buttons("C3").Visible = False
Me.UltraCalculator1.Buttons("C4").Visible = False
Me.UltraCalculator1.Buttons("C6").Visible = False
Me.UltraCalculator1.Buttons("C7").Visible = False
End Sub