Изменение текста в Label при смене состояния CheckBox'а - VB

Формулировка задачи:

Не могу решить вот какую задачу, ________________________________ Есть три элемента Checkbox в отдельном фрейме, их название (например) "Понедельник, Вторник, Четверг." ________________________________ И есть элемент label в котором изначально есть надпись "понедельник нет вторник нет четверг нет" ________________________________ задача втом чтобы при нажатии на определенный чекбоксы лейбле менялся текст. Например при нажатии на чекбочкс "Понедельник" в лейбле на надпись "понедельник нет" менялся на "понедельник да." ________________________________ ну со вторником и четвергом соотвественно!

Решение задачи: «Изменение текста в Label при смене состояния CheckBox'а»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim t1, t2
 
Private Sub Option1_Click()
t1 = 1
Call data
End Sub
Private Sub Option2_Click()
t1 = 2
Call data
End Sub
Private Sub Option3_Click()
t2 = 1
Call data
End Sub
Private Sub Option4_Click()
t2 = 2
Call data
End Sub
Private Sub Option5_Click()
t2 = 3
Call data
End Sub
 
Function data()
Label1 = "курс  " & t1 & vbCrLf & "семестр " & t2
End Function