stify"> Private Sub Option4_GotFocus (). BackColor= amp; HFFFF80Sub  
 Private Sub Option4_LostFocus (). BackColor= amp; H808080Sub 
  Форма 14 - Питання 13 
  Private Sub Command1_Click () Option3=True Then Me.Tag=Form13.Tag + 1 Else Me.Tag=Form13.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 
  Форма 15 - Питання 14 
  Private Sub Command1_Click () Option3=True Then Me.Tag=Form14.Tag + 1 Else Me.Tag=Form14.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 
  Форма 16 - Питання 15 
  Private Sub Command1_Click () Option3=True Then Me.Tag=Form15.Tag + 1 Else Me.Tag=Form15.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 
  Форма 17 - Питання 16 
  Private Sub Command1_Click () Option3=True Then Me.Tag=Form16.Tag + 1 Else Me.Tag=Form16.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 
  Форма 18 - Питання 17 
  Private Sub Command1_Click () Option3=True Then Me.Tag=Form17.Tag + 1 Else Me.Tag=Form17.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 
  Форма 19 - Питання 18 
  Private Sub Command1_Click () Option3=True Then Me.Tag=Form18.Tag + 1 Else Me.Tag=Form18.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 
  Форма 20 - Питання 19 
  Private Sub Command1_Click () Option3=True Then Me.Tag=Form19.Tag + 1 Else Me.Tag=Form19.Tag.Hide.ShowSubSub Command2_Click (). ShowSubSub Option1_GotFocus (). BackColor= amp ; HFFFF80Sub 
  Private S...