Hi,
I have it working now sorry. I was using the schedules contact collection.
Thanks.

These are my settings.   

            Dim sTime As TimeSpan = New TimeSpan(7, 0, 0)
            Dim eTime As TimeSpan = New TimeSpan(16, 0, 0)
            Calendar1.ResourceViewSettings.Timelines = 3
            Calendar1.ResourceViewSettings.SnapUnit = TimeUnit.Minute
            Calendar1.ResourceViewSettings.SnapUnitCount = 15
            Calendar1.ResourceViewSettings.TopTimelineSettings.Unit = TimeUnit.Month
            Calendar1.ResourceViewSettings.TopTimelineSettings.Format = "MMMM yyyy"
            Calendar1.ResourceViewSettings.TopTimelineSettings.ShowCurrentTime = State.Enabled
            Calendar1.ResourceViewSettings.TopTimelineSettings.NowFillColor = Color.MediumBlue
            Calendar1.ResourceViewSettings.TopTimelineSettings.NowColor = Color.DarkGray

            Calendar1.ResourceViewSettings.MiddleTimelineSettings.Unit = TimeUnit.Day
            Calendar1.ResourceViewSettings.MiddleTimelineSettings.Format = "dddd dd"
            Calendar1.ResourceViewSettings.MiddleTimelineSettings.ShowCurrentTime = State.Enabled
            Calendar1.ResourceViewSettings.MiddleTimelineSettings.NowFillColor = Color.MediumBlue
            Calendar1.ResourceViewSettings.MiddleTimelineSettings.NowColor = Color.DarkGray

            Calendar1.ResourceViewSettings.BottomTimelineSettings.Unit = TimeUnit.Hour
            Calendar1.ResourceViewSettings.BottomTimelineSettings.Format = "h:mm"
            Calendar1.ResourceViewSettings.BottomTimelineSettings.ShowCurrentTime = State.Enabled
            Calendar1.ResourceViewSettings.BottomTimelineSettings.NowFillColor = Color.MediumBlue
            Calendar1.ResourceViewSettings.BottomTimelineSettings.NowColor = Color.DarkGray
            Calendar1.ResourceViewSettings.ShowResourceDuration = State.Enabled

            Calendar1.ResourceViewSettings.VisibleStartTime = sTime
            Calendar1.ResourceViewSettings.VisibleEndTime = eTime
            Calendar1.ResourceViewSettings.TimelineScale = (Calendar1.Width - 120) / 17
            GetDates(MonthCalendar1.SelectionStart.Date) 

         And This is my error,
System.ArgumentOutOfRangeException {"The added or subtracted value results in an un-representable DateTime.\r\nParameter name: value"}

This occurs when an existing item is selected and attemped to be dragged to a day prior to the first visible date of the Calander.

I created a new form with a new calander, added the above settings and the same error occured.

Thanks Meppy, The New version worked great!!!