Dim Day As ThisDay

Select Day                    ' jeśli dzień tygodnia to:
  Case ThisDay.Monday         ' poniedziałek
    TakeHeadacheMedicine()    ' weź lekarstwo na ból głowy
  Case ThisDay.Tuesday        ' wtorek
    GroceryShop()             ' zakupy
  Case ThisDay.Wednesday      ' środa
    PayBills()                ' zapłać rachunki
  Case ThisDay.Thursday       ' czwartek
    PayMoreBills()            ' zapłać inne rachunki
  Case ThisDay.Friday         ' piątek
    LeagueNight()             ' wieczorem jest mecz
  Case ThisDay.Saturday       ' sobota
    Bath()                    ' kąpiel
  Case ThisDay.Sunday         ' niedziela
    Rest()                    ' wypoczynek
  Case Else  ' pozostałe wartości
    MessageBox.Show(”Nieprawidłowa wartość Day”)
End Select
