nullable object must have a value

[Marnix Bouwman]

Hi, I'm doing this:

        Protected Sub rdScheduler_AppointmentInsert(ByVal sender As Object, ByVal e As Telerik.Web.UI.SchedulerCancelEventArgs) Handles rdScheduler.AppointmentInsert
            Dim objEventInfo As New EventInfo
            objEventInfo.EventSubject = e.Appointment.Subject
            objEventInfo.EventStart = e.Appointment.Start
            objEventInfo.EventEnd = e.Appointment.End
            objEventInfo.EventRecurrenceRule = e.Appointment.RecurrenceRule
            objEventInfo.EventRecurrenceParentId = e.Appointment.RecurrenceParentID
            If Not e.Appointment.Resources.GetResourceByType("User") Is Nothing Then
                objEventInfo.EventUserID = CInt(e.Appointment.Resources.GetResourceByType("User").ToString)
            Else
                objEventInfo.EventUserID = -1
            End If
        End Sub

And I get a "Nullable object must have a value" error

[Marnix Bouwman]

Oh, never mind... Saw the mistake