Design Problem 2
Form 1 Code:
Private Sub label3_Click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label4_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label5_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label6_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label7_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label8_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label9_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label10_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label11_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label12_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label13_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label14_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label17_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label18_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label19_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label20_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label21_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label22_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label24_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label25_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label26_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label27_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label28_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label29_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label41_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label42_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label43_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label44_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label45_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label46_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label65_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label66_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label67_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label68_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label69_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label70_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label59_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label60_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label61_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label62_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label63_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label64_click()
Text1.Text = Val(Text1.Text) + 1
End Sub
Private Sub label77_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label78_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label79_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label80_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label81_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label82_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label71_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label72_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label73_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label74_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label75_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label76_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label47_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label48_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label49_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label50_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label51_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label52_click()
Text2.Text = Val(Text2.Text) + 1
End Sub
Private Sub label89_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label30_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label31_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label32_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label33_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label34_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label53_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label54_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label55_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label56_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label57_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label58_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label83_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label84_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label85_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label86_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label87_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label88_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label35_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label36_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label37_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label38_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label39_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub label40_click()
Text3.Text = Val(Text3.Text) + 1
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = Timer1.Interval + 5
If Timer1.Interval = 50 Then
Shape1(41).Visible = False
Shape1(9).Visible = True
Label3.Visible = True
Shape1(28).Visible = False
Shape1(49).Visible = True
Label9.Visible = True
Else
If Timer1.Interval = 100 Then
Shape1(9).Visible = False
Label3.Visible = False
Shape1(8).Visible = True
Label4.Visible = True
Shape1(49).Visible = False
Label9.Visible = False
Shape1(48).Visible = True
Label10.Visible = True
Else
If Timer1.Interval = 150 Then
Shape1(8).Visible = False
Label4.Visible = False
Shape1(12).Visible = True
Label5.Visible = True
Shape1(48).Visible = False
Label10.Visible = False
Shape1(45).Visible = True
Label11.Visible = True
Else
If Timer1.Interval = 200 Then
Shape1(12).Visible = False
Label5.Visible = False
Shape1(11).Visible = True
Label6.Visible = True
Shape1(45).Visible = False
Label11.Visible = False
Shape1(44).Visible = True
Label12.Visible = True
Else
If Timer1.Interval = 250 Then
Shape1(11).Visible = False
Label6.Visible = False
Shape1(10).Visible = True
Label7.Visible = True
Shape1(44).Visible = False
Label12.Visible = False
Shape1(47).Visible = True
Label13.Visible = True
Else
If Timer1.Interval = 300 Then
Shape1(10).Visible = False
Label7.Visible = False
Shape1(13).Visible = True
Label8.Visible = True
Shape1(47).Visible = False
Label13.Visible = False
Shape1(43).Visible = True
Label14.Visible = True
Else
If Timer1.Interval = 350 Then
Shape1(13).Visible = False
Label8.Visible = False
Shape1(43).Visible = False
Label14.Visible = False
End If
End If
End If
End If
End If
End If
End If
If Timer1.Interval = 350 Then
Shape1(40).Visible = False
Shape1(14).Visible = True
Label17.Visible = True
Shape1(29).Visible = False
Shape1(52).Visible = True
Label24.Visible = True
Else
If Timer1.Interval = 370 Then
Shape1(14).Visible = False
Label17.Visible = False
Shape1(15).Visible = True
Label18.Visible = True
Shape1(52).Visible = False
Label24.Visible = False
Shape1(53).Visible = True
Label25.Visible = True
Else
If Timer1.Interval = 390 Then
Shape1(15).Visible = False
Label18.Visible = False
Shape1(42).Visible = True
Label19.Visible = True
Shape1(53).Visible = False
Label25.Visible = False
Shape1(54).Visible = True
Label26.Visible = True
Else
If Timer1.Interval = 410 Then
Shape1(42).Visible = False
Label19.Visible = False
Shape1(46).Visible = True
Label20.Visible = True
Shape1(54).Visible = False
Label26.Visible = False
Shape1(55).Visible = True
Label27.Visible = True
Else
If Timer1.Interval = 430 Then
Shape1(46).Visible = False
Label20.Visible = False
Shape1(50).Visible = True
Label21.Visible = True
Shape1(55).Visible = False
Label27.Visible = False
Shape1(56).Visible = True
Label28.Visible = True
Else
If Timer1.Interval = 450 Then
Shape1(50).Visible = False
Label21.Visible = False
Shape1(51).Visible = True
Label22.Visible = True
Shape1(56).Visible = False
Label28.Visible = False
Shape1(57).Visible = True
Label29.Visible = True
Else
If Timer1.Interval = 470 Then
Shape1(51).Visible = False
Label22.Visible = False
Shape1(57).Visible = False
Label29.Visible = False
End If
End If
End If
End If
End If
End If
End If
If Timer1.Interval = 470 Then
Shape1(39).Visible = False
Shape1(58).Visible = True
Label89.Visible = True
Shape1(30).Visible = False
Shape1(64).Visible = True
Label35.Visible = True
Else
If Timer1.Interval = 490 Then
Shape1(58).Visible = False
Label89.Visible = False
Shape1(59).Visible = True
Label30.Visible = True
Shape1(64).Visible = False
Label35.Visible = False
Shape1(65).Visible = True
Label36.Visible = True
Else
If Timer1.Interval = 510 Then
Shape1(59).Visible = False
Label30.Visible = False
Shape1(60).Visible = True
Label31.Visible = True
Shape1(65).Visible = False
Label36.Visible = False
Shape1(66).Visible = True
Label37.Visible = True
Else
If Timer1.Interval = 530 Then
Shape1(60).Visible = False
Label31.Visible = False
Shape1(61).Visible = True
Label32.Visible = True
Shape1(66).Visible = False
Label37.Visible = False
Shape1(67).Visible = True
Label38.Visible = True
Else
If Timer1.Interval = 550 Then
Shape1(61).Visible = False
Label32.Visible = False
Shape1(62).Visible = True
Label33.Visible = True
Shape1(67).Visible = False
Label38.Visible = False
Shape1(68).Visible = True
Label39.Visible = True
Else
If Timer1.Interval = 570 Then
Shape1(62).Visible = False
Label33.Visible = False
Shape1(63).Visible = True
Label34.Visible = True
Shape1(68).Visible = False
Label39.Visible = False
Shape1(69).Visible = True
Label40.Visible = True
Else
If Timer1.Interval = 590 Then
Shape1(63).Visible = False
Label34.Visible = False
Shape1(69).Visible = False
Label40.Visible = False
End If
End If
End If
End If
End If
End If
End If
If Timer1.Interval = 590 Then
Shape1(38).Visible = False
Shape1(70).Visible = True
Label41.Visible = True
Shape1(31).Visible = False
Shape1(76).Visible = True
Label47.Visible = True
Else
If Timer1.Interval = 610 Then
Shape1(70).Visible = False
Label41.Visible = False
Shape1(71).Visible = True
Label42.Visible = True
Shape1(76).Visible = False
Label47.Visible = False
Shape1(77).Visible = True
Label48.Visible = True
Else
If Timer1.Interval = 630 Then
Shape1(71).Visible = False
Label42.Visible = False
Shape1(72).Visible = True
Label43.Visible = True
Shape1(77).Visible = False
Label48.Visible = False
Shape1(78).Visible = True
Label49.Visible = True
Else
If Timer1.Interval = 650 Then
Shape1(72).Visible = False
Label43.Visible = False
Shape1(73).Visible = True
Label44.Visible = True
Shape1(78).Visible = False
Label49.Visible = False
Shape1(79).Visible = True
Label50.Visible = True
Else
If Timer1.Interval = 670 Then
Shape1(73).Visible = False
Label44.Visible = False
Shape1(74).Visible = True
Label45.Visible = True
Shape1(79).Visible = False
Label50.Visible = False
Shape1(80).Visible = True
Label51.Visible = True
Else
If Timer1.Interval = 690 Then
Shape1(74).Visible = False
Label45.Visible = False
Shape1(75).Visible = True
Label46.Visible = True
Shape1(80).Visible = False
Label51.Visible = False
Shape1(81).Visible = True
Label52.Visible = True
Else
If Timer1.Interval = 710 Then
Shape1(75).Visible = False
Label46.Visible = False
Shape1(81).Visible = False
Label52.Visible = False
End If
End If
End If
End If
End If
End If
End If
If Timer1.Interval = 710 Then
Shape1(37).Visible = False
Shape1(82).Visible = True
Label53.Visible = True
Shape1(32).Visible = False
Shape1(88).Visible = True
Label59.Visible = True
Else
If Timer1.Interval = 730 Then
Shape1(82).Visible = False
Label53.Visible = False
Shape1(83).Visible = True
Label54.Visible = True
Shape1(88).Visible = False
Label59.Visible = False
Shape1(89).Visible = True
Label60.Visible = True
Else
If Timer1.Interval = 750 Then
Shape1(83).Visible = False
Label54.Visible = False
Shape1(84).Visible = True
Label55.Visible = True
Shape1(89).Visible = False
Label60.Visible = False
Shape1(90).Visible = True
Label61.Visible = True
Else
If Timer1.Interval = 770 Then
Shape1(84).Visible = False
Label55.Visible = False
Shape1(85).Visible = True
Label56.Visible = True
Shape1(90).Visible = False
Label61.Visible = False
Shape1(91).Visible = True
Label62.Visible = True
Else
If Timer1.Interval = 790 Then
Shape1(85).Visible = False
Label56.Visible = False
Shape1(86).Visible = True
Label57.Visible = True
Shape1(91).Visible = False
Label62.Visible = False
Shape1(92).Visible = True
Label63.Visible = True
Else
If Timer1.Interval = 810 Then
Shape1(86).Visible = False
Label57.Visible = False
Shape1(87).Visible = True
Label58.Visible = True
Shape1(92).Visible = False
Label63.Visible = False
Shape1(93).Visible = True
Label64.Visible = True
Else
If Timer1.Interval = 830 Then
Shape1(87).Visible = False
Label58.Visible = False
Shape1(93).Visible = False
Label64.Visible = False
End If
End If
End If
End If
End If
End If
End If
If Timer1.Interval = 830 Then
Shape1(36).Visible = False
Shape1(94).Visible = True
Label65.Visible = True
Shape1(33).Visible = False
Shape1(100).Visible = True
Label71.Visible = True
Else
If Timer1.Interval = 850 Then
Shape1(94).Visible = False
Label65.Visible = False
Shape1(95).Visible = True
Label66.Visible = True
Shape1(100).Visible = False
Label71.Visible = False
Shape1(101).Visible = True
Label72.Visible = True
Else
If Timer1.Interval = 870 Then
Shape1(95).Visible = False
Label66.Visible = False
Shape1(96).Visible = True
Label67.Visible = True
Shape1(101).Visible = False
Label72.Visible = False
Shape1(102).Visible = True
Label73.Visible = True
Else
If Timer1.Interval = 890 Then
Shape1(96).Visible = False
Label67.Visible = False
Shape1(97).Visible = True
Label68.Visible = True
Shape1(102).Visible = False
Label73.Visible = False
Shape1(103).Visible = True
Label74.Visible = True
Else
If Timer1.Interval = 910 Then
Shape1(97).Visible = False
Label68.Visible = False
Shape1(98).Visible = True
Label69.Visible = True
Shape1(103).Visible = False
Label74.Visible = False
Shape1(104).Visible = True
Label75.Visible = True
Else
If Timer1.Interval = 930 Then
Shape1(98).Visible = False
Label69.Visible = False
Shape1(99).Visible = True
Label70.Visible = True
Shape1(104).Visible = False
Label75.Visible = False
Shape1(105).Visible = True
Label76.Visible = True
Else
If Timer1.Interval = 950 Then
Shape1(99).Visible = False
Label70.Visible = False
Shape1(105).Visible = False
Label76.Visible = False
End If
End If
End If
End If
End If
End If
End If
If Timer1.Interval = 950 Then
Shape1(35).Visible = False
Shape1(106).Visible = True
Label77.Visible = True
Shape1(34).Visible = False
Shape1(112).Visible = True
Label83.Visible = True
Else
If Timer1.Interval = 970 Then
Shape1(106).Visible = False
Label77.Visible = False
Shape1(107).Visible = True
Label78.Visible = True
Shape1(112).Visible = False
Label83.Visible = False
Shape1(113).Visible = True
Label84.Visible = True
Else
If Timer1.Interval = 990 Then
Shape1(107).Visible = False
Label78.Visible = False
Shape1(108).Visible = True
Label79.Visible = True
Shape1(113).Visible = False
Label84.Visible = False
Shape1(114).Visible = True
Label85.Visible = True
Else
If Timer1.Interval = 1010 Then
Shape1(108).Visible = False
Label79.Visible = False
Shape1(109).Visible = True
Label80.Visible = True
Shape1(114).Visible = False
Label85.Visible = False
Shape1(115).Visible = True
Label86.Visible = True
Else
If Timer1.Interval = 1030 Then
Shape1(109).Visible = False
Label80.Visible = False
Shape1(110).Visible = True
Label81.Visible = True
Shape1(115).Visible = False
Label86.Visible = False
Shape1(116).Visible = True
Label87.Visible = True
Else
If Timer1.Interval = 1050 Then
Shape1(110).Visible = False
Label81.Visible = False
Shape1(111).Visible = True
Label82.Visible = True
Shape1(116).Visible = False
Label87.Visible = False
Shape1(117).Visible = True
Label88.Visible = True
Else
If Timer1.Interval = 1070 Then
Shape1(111).Visible = False
Label82.Visible = False
Shape1(117).Visible = False
Label88.Visible = False
End If
End If
End If
End If
End If
End If
End If
End Sub
Form 2 Code:
Private Sub Command1_Click()
Me.Visible = False
Form1.Visible = True
End Sub
Output:
