Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim result As DialogResult = MessageBox.Show(Me, "Would you like to Enable the 'Click To Add' feature?", "ClickToAdd", MessageBoxButtons.YesNoCancel)
Dim propertyValue As DefaultableBoolean = DefaultableBoolean.Default
If (result = DialogResult.Yes) Then
propertyValue = DefaultableBoolean.True
ElseIf (result = DialogResult.No) Then
propertyValue = DefaultableBoolean.False
End If
If (propertyValue <> DefaultableBoolean.Default) Then
Me.ultraDayView1.ShowClickToAddIndicator = propertyValue
Me.ultraWeekView1.ShowClickToAddIndicator = propertyValue
Me.ultraMonthViewSingle1.ShowClickToAddIndicator = propertyValue
End If
End Sub