
Partial Class CheckBoxList_CheckBoxList_ArrayItems
    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"}
        For Each genre As String In Genres
            cblItems.Items.Add(New ListItem(genre))
        Next
    End Sub
End Class
