' Create a new Project other than the Unassigned Project Dim quarterlyProject As Project = Me.ultraCalendarInfo1.Projects.Add("QuartlerlyProject", DateTime.Today) quarterlyProject.Key = "projkey1" ' Create a Summary or Parent Task Dim requirementsTask As Task = Me.ultraCalendarInfo1.Tasks.Add(DateTime.Today, TimeSpan.FromDays(5), "Requirements", "projkey1") ' Create a child task Dim budgetTask As Task = requirementsTask.Tasks.Add(DateTime.Today, TimeSpan.FromDays(2), "Budget Analysis") ' Set Deadline budgetTask.Deadline = DateTime.Today.AddDays(3) 'Assign a Resource for this task Dim budgetOwner As Owner = Me.ultraCalendarInfo1.Owners.Add("BudgetOwner", "Bill Isacky") budgetTask.Resources.Add(budgetOwner) ' Create another child task Dim teamTask As Task = requirementsTask.Tasks.Add(DateTime.Today.AddDays(3), TimeSpan.FromDays(2), "Team Allocation") ' Set a Constraint for this Task teamTask.ConstraintDateTime = DateTime.Today.AddDays(4) teamTask.Constraint = TaskConstraint.FinishNoLaterThan ' Create a Summary or Parent Task Dim implemetationTask As Task = Me.ultraCalendarInfo1.Tasks.Add(DateTime.Now.AddDays(7), TimeSpan.FromDays(3), "Implementation", "projkey1") ' Create a child task Dim frontendTask As Task = implemetationTask.Tasks.Add(DateTime.Now.AddDays(7), TimeSpan.FromDays(3), "GUI Design") ' Set this task as a Milestone frontendTask.Milestone = True ' Set Percent Complete for this Task frontendTask.PercentComplete = 40 frontendTask.Dependencies.Add(budgetTask, TaskDependencyType.StartToStart) frontendTask.Dependencies.Add(teamTask, TaskDependencyType.FinishToStart) Me.ultraGanttView1.CalendarInfo = Me.ultraCalendarInfo1 ' Assign the new Project to GanttView so that this Project is shown in GanttView and not the unassigned Project. Me.ultraGanttView1.Project = Me.ultraGanttView1.CalendarInfo.Projects(1)