Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not Me.UltraDayView1.ActiveOwner Is Nothing Then
Dim activities As ArrayList = Me.GetOwnerActivity(Me.UltraDayView1.ActiveOwner)
End If
End Sub
Private Function GetOwnerActivity(ByVal theOwner As Infragistics.Win.UltraWinSchedule.Owner) As ArrayList
If (Not theOwner Is Nothing) Then
Dim activities As ArrayList = New ArrayList(100)
activities.AddRange(theOwner.GetOwnedRecurringAppointments())
activities.AddRange(theOwner.GetOwnedNonRecurringAppointments())
activities.AddRange(theOwner.GetOwnedNotes())
Return activities
Else
Return Nothing
End If
End Function