or
Dim appt As IEvent = Nothingappt = GetAppointment(CLng(msSearchID))If appt IsNot Nothing Then SchedulerUIHelper.SelectAppointment(radScheduler1, appt, True)End IfPrivate Function GetAppointment(ByVal nID As Long) As IEvent Dim appt As IEvent = Nothing Try For Each a As IEvent In radScheduler1.Appointments If a.UniqueId.KeyValue = CStr(nID) Then appt = a End If Next Return appt Catch ex As Exception Return appt End TryEnd Function
msgbox(RadCalendar1.SelectedDate.Date)
Hope to get the answer as soon as posible cause this is urgent....
Thank!
Regards
Johnny