Private Sub UltraOptionSet1_ValueChanged(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles UltraOptionSet1.ValueChanged ' これにより新しく選択されている項目の整数インデックス、 ' DisplayText および DataValue を出力します。 MessageBox.Show(Me.UltraOptionSet1.CheckedIndex.ToString() & " " & _ Me.UltraOptionSet1.CheckedItem.DisplayText & " " & _ Me.UltraOptionSet1.CheckedItem.DataValue) End Sub