Imports Infragistics.Win
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.UltraOptionSet1.Items.Clear()
Me.UltraOptionSet1.Items.Add(1, "One")
Me.UltraOptionSet1.Items.Add(2, "Two")
Me.UltraOptionSet1.Items.Add(3, "Three")
Me.UltraOptionSet1.Items.Add(4, "Four")
Me.UltraOptionSet1.ItemAppearance.Image = Me.Icon.ToBitmap()
Me.UltraOptionSet1.ImageTransparentColor = Color.FromArgb(192, 192, 192)
Me.UltraOptionSet1.Appearance.BackColor = Color.Red
Me.UltraOptionSet1.Appearance.BackColor2 = Color.Yellow
Me.UltraOptionSet1.Appearance.BackGradientStyle = GradientStyle.HorizontalBump
Me.UltraOptionSet1.ItemSpacingVertical += 20
Me.UltraOptionSet1.BorderStyle = UIElementBorderStyle.Solid
Me.ultraOptionSet1.ItemOrigin = new Point(5,5)
Me.ultraOptionSet1.CheckedIndex = 0
End Sub
Private Sub UltraOptionSet1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UltraOptionSet1.ValueChanged
Dim i As Integer = 0
For i = 0 To Me.UltraOptionSet1.Items.Count - 1
Me.UltraOptionSet1.Items(i).Appearance.FontData.Bold = DefaultableBoolean.False
Me.UltraOptionSet1.CheckedItem.Appearance.FontData.Bold = DefaultableBoolean.True
Next i
End Sub