Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement