or


Sub GetResource() 'Get the Resource Dim point As Point = frmMain.rsdDiaryMain.PointToClient(Cursor.Position) Dim groupedDayViewElement As SchedulerDayViewGroupedByResourceElement = TryCast(frmMain.rsdDiaryMain.SchedulerElement.ViewElement, SchedulerDayViewGroupedByResourceElement) Dim cellElement As SchedulerCellElement = SchedulerUIHelper.GetCellAtPoint(point,groupedDayViewElement.GetDayViewElements()) Dim dayViewElement As SchedulerDayViewElement = TryCast(cellElement.Parent.Parent.Parent.Parent.Parent.Parent, SchedulerDayViewElement) Dim resource As EventId = dayViewElement.View.GetResources(0).Id 'Set the ATP dropdown for this resource Me.ddlResources.SelectedIndex = CType(resource.KeyValue, Integer)End Sub

Private Sub RadMenuItem1_Click(sender As Object, e As EventArgs) Handles RadMenuItem1.Click 'Small 'RadPanorama1.SuspendUpdate() tileBig.ColSpan = 1 tileBig.RowSpan = 1 tileBig.Size = New Size(200, 200) 'RadPanorama1.ResumeUpdate() RadPanorama1.Refresh() 'ReArrange() End SubPrivate Sub RadMenuItem3_Click(sender As Object, e As EventArgs) Handles RadMenuItem3.Click 'Large tileBig.ColSpan = 2 tileBig.RowSpan = 2 ' tileBig.Size = New Size(400, 400) RadPanorama1.Refresh() 'ReArrange() End Sub