2.BackColor= amp; H808080Sub
Private Sub Option3_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option3_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option4_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option4_LostFocus (). BackColor= amp; H808080Sub
Форма 4 - Питання 3
Private Sub Command1_Click () Option3=True Then Me.Tag=Form3.Tag + 1 Else Me.Tag=Form3.Tag.Hide.ShowSubSub Command2_Click (). ShowSubSub Option1_GotFocus (). BackColor= amp ; HFFFF80Sub
Private Sub Option1_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option2_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option2_LostFocus ()
Option2.BackColor= amp; H808080Sub
Private Sub Option3_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option3_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option4_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option4_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option5_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option5_LostFocus (). BackColor= amp; H808080Sub
Форма 5 - Питання 4
Private Sub Command1_Click () Option3=True Then Me.Tag=Form4.Tag + 1 Else Me.Tag=Form4.Tag.Hide.ShowSubSub Command2_Click (). ShowSubSub Option1_GotFocus (). BackColor= amp ; HFFFF80Sub
Private Sub Option1_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option2_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option2_LostFocus ()
Option2.BackColor= amp; H808080Sub
Private Sub Option3_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option3_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option4_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option4_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option5_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option5_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option6_GotFocus ()
Option6.BackColor= amp; HFFFF80Sub
Private Sub Option6_LostFocus ()
Option6.BackColor= amp; H808080
End Sub
Форма 6 - Питання 5Sub Command1_Click () Option3=True Then Me.Tag=Form5.Tag + 1 Else Me.Tag=Form5.Tag.Hide.ShowSubSub Command2_Click (). ShowSub
Private Sub Option1_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option1_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option2_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option2_LostFocus ()
Option2.BackColor= amp; H808080Sub
Private Sub Option3_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option3_LostFocus (). BackColor= amp; H808080Sub
Форма 7 - Питання 6
Private Sub Command1_Click () Option3=True Then Me.Tag=Form6.Tag + 1 Else Me.Tag=Form6.Tag.Hide.ShowSubSub Command2_Click (). ShowSubSub Option1_GotFocus (). BackColor= amp ; HFFFF80Sub
Private Sub Option1_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option2_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option2_LostFocus ()
Option2.BackColor= amp; H808080Sub
Private Sub Option3_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option3_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option4_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option4_LostFocus (). BackColor= amp; H808080Sub
Форма 8 - Питання 7
Private Sub Command1_Click () Option3=True Then Me.Tag=Form7.Tag + 1 Else Me.Tag=Form7.Tag.Hide.ShowSubSub Command2_Click (). ShowSubSub Option1_GotFocus (). BackColor= amp ; HFFFF80Sub
Private Sub Option1_LostFocus (). BackColor= amp; H808080Sub
Private Sub Option2_GotFocus (). BackColor= amp; HFFFF80Sub
Private Sub Option2_LostFocus ()
Option2.BackColor= amp; H808080Sub
Private Sub Op...