Imports Infragistics.Win.UltraWinSchedule ... Private Sub btnCreateAppointment_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnCreateAppointment.Click Dim appointment As Appointment appointment = Me.UltraCalendarInfo1.Appointments.Add( _ System.DateTime.Today, "Appointment Subject") appointment.Action.Type = AppointmentActionType.ExecuteProgram appointment.Action.Command = "C:\WINDOWS\Notepad.exe" End Sub