Ok, so have added a new section to add recurmasterid but am getting an error object not reference error. Full code below, any ideas?

Dim ev As New Modules.Events.EventInfo
With ev
.EventID = -1
.ModuleID = 474
.EventTimeBegin = "2013-03-23 09:00:00.000"
.Duration = 100
.EventName = "Marks Test Event"
.EventDesc = "My program tester"
.Importance = EventInfo.Priority.Medium
.Reminder = "You requested reminding about the following Event:
" & _
"
[event:title]

on [NOTALLDAYEVENT][event:startdate][/NOTALLDAYEVENT][ALLDAYEVENT][event:startdate|D][/ALLDAYEVENT] [event:timezone]
" & _
"to [NOTALLDAYEVENT][event:enddate][/NOTALLDAYEVENT][ALLDAYEVENT][event:enddate|D][/ALLDAYEVENT]
[event:description]"
.Notify = "Event Reminder: [event:title] on [NOTALLDAYEVENT][event:startdate][/NOTALLDAYEVENT][ALLDAYEVENT][event:startdate|D][/ALLDAYEVENT]"
.CreatedByID = UserId
.Approved = False
.PortalID = PortalId
.Signups = False
.MaxEnrollment = 0
.EnrollRoleID = 0
.EnrollFee = 0
.EnrollType = "FREE"
.PayPalAccount = "host@paypal.com"
.Cancelled = False
.ImageURL = ""
.ImageType = ""
.ImageWidth = 0
.ImageHeight = 0
.ImageDisplay = False
.SendReminder = True
.ReminderTime = 24
.ReminderTimeMeasurement = "h"
.ReminderFrom = "info@elycity.co.uk"
.SearchSubmitted = True
.CustomField1 = ""
.CustomField2 = ""
.LastUpdatedAt = Now()
.OriginalDateBegin = "2013-03-23 09:00:00.000"
.LastUpdatedID = UserId
.OwnerID = UserId
.EnrollListView = False
.NewEventEmailSent = True
.DisplayEndDate = True
.AllDayEvent = False
.DetailPage = False
.DetailURL = ""
.DetailNewWin = False
.CreatedDate = Now()
.AllowAnonEnroll = False
.ContentItemID = 0
.JournalItem = True
.Summary = ""
.Sequence = 1


Dim eli As New EventLocationController
.Location = eli.EventsLocationGet(1, PortalId).Location

Dim eci As New EventCategoryController
.Category = eci.EventCategoryGet(1, PortalId).Category

Dim ri As New EventRecurMasterInfo
With ri
.ModuleID = ModuleId
.PortalID = PortalId
.RRULE = ""
.DTSTART = ev.EventTimeBegin
.Duration = ev.Duration & "M"
.Until = ev.EventTimeBegin
.EventName = ev.EventName
.EventDesc = ev.EventDesc
.Importance = ev.Importance
.Reminder = ev.Reminder
.Notify = ev.Notify
.Approved = ev.Approved
.Signups = ev.Signups
.MaxEnrollment = ev.MaxEnrollment
.EnrollRoleID = ev.EnrollRoleID
.EnrollFee = ev.EnrollFee
.EnrollType = ev.EnrollType
.PayPalAccount = ev.PayPalAccount
.ImageURL = ev.ImageURL
.ImageType = ev.ImageType
.ImageWidth = ev.ImageWidth
.ImageHeight = ev.ImageHeight
.ImageDisplay = ev.ImageDisplay
.Location = ev.Location
.Category = ev.Category
.SendReminder = ev.SendReminder
.ReminderTime = ev.ReminderTime
.ReminderTimeMeasurement = ev.ReminderTimeMeasurement
.ReminderFrom = ev.ReminderFrom
.CustomField1 = ev.CustomField1
.CustomField2 = ev.CustomField2
.EnrollListView = ev.EnrollListView
.DisplayEndDate = ev.DisplayEndDate
.AllDayEvent = ev.AllDayEvent
.OwnerID = ev.OwnerID
.CultureName = "en-gb"
.CreatedByID = ev.CreatedByID
.CreatedDate = ev.CreatedDate
.UpdatedByID = ev.LastUpdatedID
.UpdatedDate = ev.LastUpdatedAt
.DetailPage = ev.DetailPage
.DetailURL = ev.DetailURL
.DetailNewWin = ev.DetailNewWin
.EventTimeZoneId = TimeZone.CurrentTimeZone.StandardName
.AllowAnonEnroll = ev.AllowAnonEnroll
.ContentItemID = ev.ContentItemID
.SocialGroupID = 0
.SocialUserID = 0
.Summary = ev.Summary
End With

Dim rc As New EventRecurMasterController
.RecurMasterID = rc.EventsRecurMasterSave(ri).RecurMasterID

End With

Dim a As New Modules.Events.EventController
a.EventsSave(ev, False)

---

A point to note for anyone using this code. Only works on upto 6.1.1 of Events module, will fall over on 6.0.4

---