public interface IAppointmentStatusStorage :
    IStorageCollection<IAppointmentStatus>,
    IEnumerable<IAppointmentStatus>,
    IEnumerable,
    ICollection,
    IDisposable

Public Interface IAppointmentStatusStorage
    Inherits IStorageCollection(Of IAppointmentStatus),
             IEnumerable(Of IAppointmentStatus),
             IEnumerable,
             ICollection,
             IDisposable

scheduler.InitAppointmentDisplayText += scheduler_InitAppointmentDisplayText_1;
    scheduler.ActiveView.LayoutChanged();
public static void scheduler_InitAppointmentDisplayText_1(object sender, AppointmentDisplayTextEventArgs e) {
    SchedulerControl scheduler = sender as SchedulerControl;
    IAppointmentStatus status = scheduler.DataStorage.Appointments.Statuses.GetById(e.Appointment.StatusKey);
    e.Description = String.Format("Status Info:\nDisplayName = '{0}'\nID = '{1}'", status.DisplayName, status.Id.ToString());
}

AddHandler scheduler.InitAppointmentDisplayText, AddressOf scheduler_InitAppointmentDisplayText_1
    scheduler.ActiveView.LayoutChanged()
Public Shared Sub scheduler_InitAppointmentDisplayText_1(ByVal sender As Object, ByVal e As AppointmentDisplayTextEventArgs)
    Dim scheduler As SchedulerControl = TryCast(sender, SchedulerControl)
    Dim status As IAppointmentStatus = scheduler.DataStorage.Appointments.Statuses.GetById(e.Appointment.StatusKey)
    e.Description = String.Format("Status Info:" & ControlChars.Lf & "DisplayName = '{0}'" & ControlChars.Lf & "ID = '{1}'", status.DisplayName, status.Id.ToString())
End Sub