Public Class Main
    Public Sunday(), Monday(), Tuesday(), Wednesday(), Thursday(), Friday(), Saturday() As String

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadShows()
        FillList()
    End Sub

    Public Sub LoadShows()
        Sunday = {"", "", "", "", ""}
        Monday = {"", "", ""}
        Tuesday = {"", "", ""}
        Wednesday = {"", ""}
        Thursday = {"", "", ""}
        Friday = {"", "", ""}
        Saturday = {"", "", ""}
    End Sub

    Public Sub FillList()
          For Each item In Monday
            lbMonday.Items.Add(item)
        Next
        For Each item In Tuesday
            lbTuesday.Items.Add(item)
        Next
        For Each item In Wednesday
            lbWednesday.Items.Add(item)
        Next
        For Each item In Thursday
            lbThursday.Items.Add(item)
        Next
        For Each item In Friday
            lbFriday.Items.Add(item)
        Next
        For Each item In Saturday
            lbSaturday.Items.Add(item)
        Next
        For Each item In Sunday
            lbSunday.Items.Add(item)
        Next
    End Sub
End Class