Dim Appointment As ASScheduler_Appointment = ASSchedulerUtils.CreateASScheduler_Appointment(0,"Test2","Description",xui.Color_ARGB(255,45, 136, 121),False,DateTime.Now,DateTime.Now + DateTime.TicksPerHour)
Appointment.Tag = 126
ASScheduler_MonthView1.API.CreateAppointment(Appointment)