Private Sub btnPerformAction_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnPerformAction.Click Me.UltraWeekView1.PerformAction( _ Infragistics.Win.UltraWinSchedule.WeekView.UltraWeekViewAction.NextDay, _ False, True) End Sub