
Partial Class CheckBoxList_CheckBoxList_ArrayItemsDataBind
    Inherits System.Web.UI.Page

    Protected Sub cblItems_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles cblItems.Init
        'Tworzenie tablicy elementów do dodania.
        Dim Genres() As String = {"Fantastyka", "Powieści", "Komputery", "Historia", "Religia"}
        cblItems.DataSource = Genres
        cblItems.DataBind()
    End Sub
End Class
