B4J Question Assheduler

When I update an appointment and then do ASScheduler_DayView1.RefreshScheduler I loose the appointment from the diary view. I have even tried to Delete the appointment and the create a new appointment and then do a refresh. As a novice am I doing something wrong
(Updated)
Dim StartDate As Long = DateTime.DatetimeParse(Variables.LB5, Variables.Times)
UserForm.DayView.API.UpdateAppointment(ASSchedulerUtils.CreateASScheduler_Appointment(Variables.AssJobNum,TextName.text & " " & Textpostcode.Text,TextJobNum.Text,xui.Color_aRGB(argb(0),argb(1),argb(2),argb(3)),False,StartDate,StartDate + DateTime.TicksPerHour*1.5))

UserForm.DayView.RefreshScheduler

(Deleted then recreated)


UserForm.DayView.API.DeleteAppointment(Variables.AssJobNum)
Sleep(0)
Dim StartDate As Long = DateTime.DatetimeParse(Variables.LB5, Variables.Times)
UserForm.DayView.API.CreateAppointment(ASSchedulerUtils.CreateASScheduler_Appointment(Variables.AssJobNum,TextName.text & " " & Textpostcode.Text,TextJobNum.Text,xui.Color_aRGB(argb(0),argb(1),argb(2),argb(3)),False,StartDate,StartDate + DateTime.TicksPerHour*1.5))

UserForm.DayView.RefreshScheduler