Pasted

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