Private Sub UltraOptionSet1_ValueChanged(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles UltraOptionSet1.ValueChanged ' This prints out the integer index of the newly selected item, ' DisplayText, and DataValue MessageBox.Show(Me.UltraOptionSet1.CheckedIndex.ToString() & " " & _ Me.UltraOptionSet1.CheckedItem.DisplayText & " " & _ Me.UltraOptionSet1.CheckedItem.DataValue) End Sub