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...