Private Sub c1_Click()
l3 = ""
l4 = ""
End Sub
Private Sub c2_Click()
diem.Caption = "0"
If l3.Caption = o1.Caption Then
diem.Caption = diem.Caption + 10
End If
If l4.Caption = o2.Caption Then
diem.Caption = diem.Caption + 10
End If
End Sub
Private Sub l3_Click()
l3.Caption = temp.Caption
End Sub
Private Sub l4_Click()
l4.Caption = temp.Caption
End Sub
Private Sub o1_Click()
temp.Caption = o1.Caption
End Sub
Private Sub o2_Click()
temp.Caption = o2.Caption
End Sub
Private Sub c1_Click()
l1.Caption = "This animal is scared of cats. it's also a part of a PC."
End Sub
Private Sub c2_Click()
l1.Caption = "This animal eats carrots."
End Sub
Private Sub c3_Click()
l1 = "This animal has two horns."
End Sub
Private Sub c4_Click()
l1.Caption = "We often find these animals in Australia."
End Sub
Private Sub c5_Click()
o1 = ""
o2 = ""
o3 = ""
o4 = ""
o5 = ""
o6 = ""
o7 = ""
o8 = ""
o8 = ""
o9 = ""
o10 = ""
o11 = ""
o12 = ""
o13 = ""
o14 = ""
o15 = ""
o16 = ""
o17 = ""
o18 = ""
o19 = ""
o20 = ""
o21 = ""
o22 = ""
o23 = ""
End Sub
Private Sub o1_Click()
o1 = "M"
o2 = "O"
o3 = "U"
o4 = "S"
o5 = "E"
End Sub
Private Sub o12_Click()
o12 = "G"
o13 = "O"
o14 = "A"
o15 = "T"
End Sub
Private Sub o16_Click()
o16 = "K"
o17 = "A"
o18 = "N"
o19 = "G"
o20 = "A"
o21 = "R"
o22 = "O"
o23 = "O"
End Sub
Private Sub o6_Click()
o6 = "R"
o7 = "A"
o8 = "B"
o9 = "B"
o10 = "I"
o11 = "T"
End Sub
Subscribe to:
Posts (Atom)