Imports Infragistics.WebUI.Shared Imports Infragistics.WebUI.WebSchedule ... Private Function FindAppointment() As Appointment ' アクティビティでループを実行し、 ' Importance が Low の最初のアクティビティを返します。 Dim index As Integer For index = 0 To Me.WebScheduleInfo1.Activities.Count Dim current As Activity = Me.WebScheduleInfo1.Activities(index) If ( current.Importance = Importance.Low ) Then Return CType(current, Appointment) End If Next index ' 一致するアクティビティが見つからなかった場合は何も返しません。 Return Nothing End Function