Create Appoint via code with dynamic Resources

[luke]

Hi

I can add an appointment via code to the scheduleview. When i add dynamic Resopurces though, i can't figure out how to assign them when the new object is created. As yiou can see I have had a crack at a few things, but to no avail. Any help would be much appreciated.

Thanks

Dim appointment As IAppointment = Me.RadScheduleView1.CreateNew()
       appointment.Start = DateTime.Now
       appointment.End = DateTime.Now.AddHours(1)
       appointment.Subject = "New appointment"
       'appointment.Resources(1) = "Tom"
       'appointment.Resources(0) = "Room 102"
       'Dim a As New ResourceCollection
       'a = appointment.Resources
       'appointment.Resources.Add(New Resource("Speaker", "Tom"))
       'appointment.Resources.Add(New Resource("Room", "Room 102"))
       'Dim a As New Telerik.Windows.Controls.Resource
       'a.ResourceType = "Room"
       'Dim b As New Telerik.Windows.Controls.Resource
       'b.ResourceType = "Speaker"
       'appointment.Resources(0) = b.
       'appointment.Resources(1) = a

       Me.RadScheduleView1.Commit()

[luke]

I just worked it out

in case any one else gets stuck here is the code i used

'MyData the name of my data class where resources dynamically created
        Dim b As New MyData
        'ResourcesTypes(0) first dynamic resource
        '.Resources(1) a value in that resource
        appointment.Resources.Add(b.ResourcesTypes(0).Resources(1))
        appointment.Resources.Add(b.ResourcesTypes(1).Resources(1))