Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
IfNotMe.UltraDayView1.ActiveOwner IsNothingThenDim activities As ArrayList = Me.GetOwnerActivity(Me.UltraDayView1.ActiveOwner)
EndIfEnd SubPrivateFunction GetOwnerActivity(ByVal theOwner As Infragistics.Win.UltraWinSchedule.Owner) As ArrayList
If (Not theOwner IsNothing) ThenDim activities As ArrayList = New ArrayList(100)
activities.AddRange(theOwner.GetOwnedRecurringAppointments())
activities.AddRange(theOwner.GetOwnedNonRecurringAppointments())
activities.AddRange(theOwner.GetOwnedNotes())
Return activities
ElseReturnNothingEndIfEnd Function