xtrascheduler custom labels

scheduler.Storage.Appointments.Clear()

Dim IssueList() As String = {"Consultation", "Treatment", "X-Ray"}
Dim IssueColorList() As Color = {Color.Ivory, Color.Pink, Color.Plum}
Dim PaymentStatuses() As String = {"Paid", "Unpaid"}
Dim PaymentColorStatuses() As Color = {Color.Green, Color.Red}


Dim labelStorage As IAppointmentLabelStorage = scheduler.Storage.Appointments.Labels
labelStorage.Clear()
Dim count As Integer = IssueList.Length
For i As Integer = 0 To count - 1
    Dim label As IAppointmentLabel = labelStorage.CreateNewLabel(i, IssueList(i))
    label.SetColor(IssueColorList(i))
    labelStorage.Add(label)
Next i
Dim statusColl As AppointmentStatusCollection = scheduler.Storage.Appointments.Statuses
statusColl.Clear()
count = PaymentStatuses.Length
For i As Integer = 0 To count - 1
    Dim status As AppointmentStatus = statusColl.CreateNewStatus(i, PaymentStatuses(i), PaymentStatuses(i))
    status.SetBrush(New SolidBrush(PaymentColorStatuses(i)))
    statusColl.Add(status)
Next i