Imports Infragistics.Win.UltraWinSchedule
Imports Infragistics.Win.UltraWinGanttView
Private Sub TaskSettings_Load(ByVal sender As Object, ByVal e As EventArgs) Handles TaskSettings.Load
' Disable specific editing for all Tasks visible in GanttView control
Me.ultraGanttView1.TaskSettings.AllowDelete = Infragistics.Win.DefaultableBoolean.[False]
Me.ultraGanttView1.TaskSettings.AllowEditDuration = Infragistics.Win.DefaultableBoolean.[False]
Me.ultraGanttView1.TaskSettings.AllowEditDeadline = Infragistics.Win.DefaultableBoolean.[False]
'Allow specific editing for specific Tasks
Me.ultraGanttView1.CalendarInfo.Tasks(0).Tasks(0).TaskSettings.AllowEditStartDateTime = Infragistics.Win.DefaultableBoolean.[False]
Me.ultraGanttView1.CalendarInfo.Tasks(1).Tasks(0).TaskSettings.AllowEditPercentComplete = Infragistics.Win.DefaultableBoolean.[False]
End Sub