VB: How do I remove "ANY" from Resource dropdownlist in the Dialog box?

Public Class CustomEditAppointmentDialog
    Inherits EditAppointmentDialog
    Protected Overrides Function CanHaveMultipleResources() As Boolean
        Dim defaultValue As Boolean = MyBase.CanHaveMultipleResources()
        Return defaultValue
    End Function
End Class

    Sub New()
        InitializeComponent()

        Dim colors() As Color = {Color.LightBlue, Color.LightGreen, Color.LightYellow, Color.Red, Color.Orange, Color.Pink, Color.Purple, Color.Peru, Color.PowderBlue}
        Dim names() As String = {"Alan Smith", "Anne Dodsworth", "Boyan Mastoni", "Richard Duncan", "Maria Shnaider"}
        For i As Integer = 0 To names.Length - 1
            Dim resource As New Telerik.WinControls.UI.Resource()
            resource.Id = New EventId(i)
            resource.Name = names(i)
            resource.Color = colors(i)
            Me.RadScheduler1.Resources.Add(resource)
        Next i
        Me.RadScheduler1.GroupType = GroupType.Resource

        AddHandler Me.RadScheduler1.AppointmentEditDialogShowing, AddressOf RadScheduler_AppointmentEditDialogShowing
    End Sub

    Dim dialog As CustomEditAppointmentDialog
    Private Sub RadScheduler_AppointmentEditDialogShowing(sender As Object, e As AppointmentEditDialogShowingEventArgs)
        If dialog Is Nothing Then
            dialog = New CustomEditAppointmentDialog
        End If
        e.AppointmentEditDialog = dialog

    End Sub

Public Class CustomEditAppointmentDialog
    Inherits EditAppointmentDialog

    Protected Overrides Sub LoadResources()
        MyBase.LoadResources()
        Me.cmbResource.Items.RemoveAt(0)
    End Sub
End Class