Select MyDay                  ' jeśli dzień tygodnia to:
  Case 1                      ' poniedziałek
    TakeHeadacheMedicine()    ' weź lekarstwo na ból głowy
  Case 2                      ' wtorek
    GroceryShop()             ' zakupy
  Case 3                      ' środa
    PayBills()                ' zapłać rachunki
  Case 4                      ' czwartek
    PayMoreBills()            ' zapłać inne rachunki
  Case 5                      ' piątek
    LeagueNight()             ' wieczorem jest mecz
  Case 6                      ' sobota
    Bath()                    ' kąpiel
  Case 7                      ' niedziela
    Rest()                    ' wypoczynek
  Case Else  ' pozostałe wartości
    MessageBox.Show(”Nieprawidłowa wartość MyDay”)
End Select
