DANILO G. NICOLAS JR.

JOHN PAUL ANCHORIZ

If LblB(3).ForeColor = &HFF00& And LblI(3).ForeColor = &HFF00&

And LblN(2).ForeColor = &HFF00& And LblG(3).ForeColor =
&HFF00& And LblO(3).ForeColor = &HFF00& Then h4
If LblB(4).ForeColor = &HFF00& And LblI(4).ForeColor =
&HFF00& And LblN(3).ForeColor = &HFF00& And
LblG(4).ForeColor = &HFF00& And LblO(4).ForeColor = &HFF00&
Then h5
End If

If OptBlock = True Then

If LblB(0).ForeColor = &HFF00& And LblI(1).ForeColor = &HFF00&

And LblG(3).ForeColor = &HFF00& And LblO(4).ForeColor = &HFF00&
Then d1
If LblB(4).ForeColor = &HFF00& And LblI(3).ForeColor = &HFF00&
And LblG(1).ForeColor = &HFF00& And LblO(0).ForeColor = &HFF00&
Then d2
End If

Dim d, j
LblDraw.Caption = Int(75 * Rnd()) + 1
Private Sub CmdDraw_Click()
If LblDraw <= 15 Then
LblLetter.Caption = "B"
CmdGen.Enabled = False
CmdDraw.Enabled = True
ElseIf LblDraw.Caption >= 16 And LblDraw.Caption <= 30 Then
CmdNew.Enabled = True
LblLetter.Caption = "I"
CmdPlay.Enabled = False
ElseIf LblDraw.Caption >= 31 And LblDraw.Caption <= 45 Then
LblLetter.Caption = "N"
If OptVLine = True Then
ElseIf LblDraw.Caption And LblDraw.Caption <= 60 Then
LblLetter.Caption = "G"
If LblB(0).ForeColor = &HFF00& And LblB(1).ForeColor = &HFF00&
ElseIf LblDraw.Caption >= 61 And LblDraw.Caption <= 75 Then
And LblB(2).ForeColor = &HFF00& And LblB(3).ForeColor = &HFF00&
LblLetter.Caption = "O"
And LblB(4).ForeColor = &HFF00& Then v1
End if
If LblI(0).ForeColor = &HFF00& And LblI(1).ForeColor = &HFF00&
And LblI(2).ForeColor = &HFF00& And LblI(3).ForeColor = &HFF00&
If Val(LblDraw.Caption) = Val(LblB(0).Caption) Then
And LblI(4).ForeColor = &HFF00& Then v2
LblB(0).ForeColor = &HFF00&
If LblN(0).ForeColor = &HFF00& And LblN(1).ForeColor = &HFF00&
d=1
And LblN(2).ForeColor = &HFF00& And LblN(3).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblB(1).Caption) Then
Then v3
LblB(1).ForeColor = &HFF00&
If LblG(0).ForeColor = &HFF00& And LblG(1).ForeColor = &HFF00&
d=1
And LblG(2).ForeColor = &HFF00& And LblG(3).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblB(2).Caption) Then
And LblG(4).ForeColor = &HFF00& Then v4
LblB(2).ForeColor = &HFF00&
If LblO(0).ForeColor = &HFF00& And LblO(1).ForeColor = &HFF00&
d=1
And LblO(2).ForeColor = &HFF00& And LblO(3).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblB(3).Caption) Then
And LblO(4).ForeColor = &HFF00& Then v5
LblB(3).ForeColor = &HFF00&
End If
d=1
ElseIf Val(LblDraw.Caption) = Val(LblB(4).Caption) Then
If OptHLine = True Then LblB(4).ForeColor = &HFF00&
d=1
If LblB(0).ForeColor = &HFF00& And LblI(0).ForeColor = &HFF00&
And LblN(0).ForeColor = &HFF00& And LblG(0).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblI(0).Caption) Then
And LblO(0).ForeColor = &HFF00& Then h1 LblI(0).ForeColor = &HFF00&
If LblB(1).ForeColor = &HFF00& And LblI(1).ForeColor = &HFF00& d=1
And LblN(1).ForeColor = &HFF00& And LblG(1).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblI(1).Caption) Then
And LblO(1).ForeColor = &HFF00& Then h2 LblI(1).ForeColor = &HFF00&
If LblB(2).ForeColor = &HFF00& And LblI(2).ForeColor = &HFF00& d=1
And LblG(2).ForeColor = &HFF00& And LblO(2).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblI(2).Caption) Then
Then h3 LblI(2).ForeColor = &HFF00&
d=1
ElseIf Val(LblDraw.Caption) = Val(LblI(3).Caption) Then LblB1(3).ForeColor = &HFF00&
LblI(3).ForeColor = &HFF00& j=1
d=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(4).Caption) Then
ElseIf Val(LblDraw.Caption) = Val(LblI(4).Caption) Then LblB1(4).ForeColor = &HFF00&
LblI(4).ForeColor = &HFF00& j=1
d=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(5).Caption) Then
LblB1(5).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblN(0).Caption) Then j=1
LblN(0).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblB1(6).Caption) Then
d=1 LblB1(6).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblN(1).Caption) Then j=1
LblN(1).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblB1(7).Caption) Then
d=1 LblB1(7).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblN(2).Caption) Then j=1
LblN(2).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblB1(8).Caption) Then
d=1 LblB1(8).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblN(3).Caption) Then j=1
LblN(3).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblB1(9).Caption) Then
d=1 LblB1(9).ForeColor = &HFF00&
j=1
ElseIf Val(LblDraw.Caption) = Val(LblG(0).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblB1(10).Caption) Then
LblG(0).ForeColor = &HFF00& LblB1(10).ForeColor = &HFF00&
d=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblG(1).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblB1(11).Caption) Then
LblG(1).ForeColor = &HFF00& LblB1(11).ForeColor = &HFF00&
d=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblG(2).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblB1(12).Caption) Then
LblG(2).ForeColor = &HFF00& LblB1(12).ForeColor = &HFF00&
d=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblG(3).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblB1(13).Caption) Then
LblG(3).ForeColor = &HFF00& LblB1(13).ForeColor = &HFF00&
d=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblG(4).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblB1(14).Caption) Then
LblG(4).ForeColor = &HFF00& LblB1(14).ForeColor = &HFF00&
d=1 j=1

ElseIf Val(LblDraw.Caption) = Val(LblO(0).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblI1(0).Caption) Then

LblO(0).ForeColor = &HFF00& LblI1(0).ForeColor = &HFF00&
d=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblO(1).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblI1(1).Caption) Then
LblO(1).ForeColor = &HFF00& LblI1(1).ForeColor = &HFF00&
d=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblO(2).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblI1(2).Caption) Then
LblO(2).ForeColor = &HFF00& LblI1(2).ForeColor = &HFF00&
d=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblO(3).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblI1(3).Caption) Then
LblO(3).ForeColor = &HFF00& LblI1(3).ForeColor = &HFF00&
d=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblO(4).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblI1(4).Caption) Then
LblO(4).ForeColor = &HFF00& LblI1(4).ForeColor = &HFF00&
d=1 j=1
End If ElseIf Val(LblDraw.Caption) = Val(LblI1(5).Caption) Then
LblI1(5).ForeColor = &HFF00&
If Val(LblDraw.Caption) = Val(LblB1(0).Caption) Then j=1
LblB1(0).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblI1(6).Caption) Then
j=1 LblI1(6).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblB1(1).Caption) Then j=1
LblB1(1).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblI1(7).Caption) Then
j=1 LblI1(7).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblB1(2).Caption) Then j=1
LblB1(2).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblI1(8).Caption) Then
j=1 LblI1(8).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblB1(3).Caption) Then j=1
ElseIf Val(LblDraw.Caption) = Val(LblI1(9).Caption) Then j=1
LblI1(9).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblG1(0).Caption) Then
j=1 LblG1(0).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblI1(10).Caption) Then j=1
LblI1(10).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblG1(1).Caption) Then
j=1 LblG1(1).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblI1(11).Caption) Then j=1
LblI1(11).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblG1(2).Caption) Then
j=1 LblG1(2).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblI1(12).Caption) Then j=1
LblI1(12).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblG1(3).Caption) Then
j=1 LblG1(3).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblI1(13).Caption) Then j=1
LblI1(13).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblG1(4).Caption) Then
j=1 LblG1(4).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblI1(14).Caption) Then j=1
LblI1(14).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblG1(5).Caption) Then
j=1 LblG1(5).ForeColor = &HFF00&
j=1
ElseIf Val(LblDraw.Caption) = Val(LblN1(0).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblG1(6).Caption) Then
LblN1(0).ForeColor = &HFF00& LblG1(6).ForeColor = &HFF00&
j=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblN1(1).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblG1(7).Caption) Then
LblN1(1).ForeColor = &HFF00& LblG1(7).ForeColor = &HFF00&
j=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblN1(2).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblG1(8).Caption) Then
LblN1(2).ForeColor = &HFF00& LblG1(8).ForeColor = &HFF00&
j=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblN1(3).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblG1(9).Caption) Then
LblN1(3).ForeColor = &HFF00& LblG1(9).ForeColor = &HFF00&
j=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblN1(4).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblG1(10).Caption) Then
LblN1(4).ForeColor = &HFF00& LblG1(10).ForeColor = &HFF00&
j=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblN1(5).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblG1(11).Caption) Then
LblN1(5).ForeColor = &HFF00& LblG1(11).ForeColor = &HFF00&
j=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblN1(6).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblG1(12).Caption) Then
LblN1(6).ForeColor = &HFF00& LblG1(12).ForeColor = &HFF00&
j=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblN1(7).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblG1(13).Caption) Then
LblN1(7).ForeColor = &HFF00& LblG1(13).ForeColor = &HFF00&
j=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblN1(8).Caption) Then ElseIf Val(LblDraw.Caption) = Val(LblG1(14).Caption) Then
LblN1(8).ForeColor = &HFF00& LblG1(14).ForeColor = &HFF00&
j=1 j=1
ElseIf Val(LblDraw.Caption) = Val(LblN1(9).Caption) Then
LblN1(9).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblO1(0).Caption) Then
j=1 LblO1(0).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblN1(10).Caption) Then j=1
LblN1(10).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblO1(1).Caption) Then
j=1 LblO1(1).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblN1(11).Caption) Then j=1
LblN1(11).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblO1(2).Caption) Then
j=1 LblO1(2).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblN1(12).Caption) Then j=1
LblN1(12).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblO1(3).Caption) Then
j=1 LblO1(3).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblN1(13).Caption) Then j=1
LblN1(13).ForeColor = &HFF00& ElseIf Val(LblDraw.Caption) = Val(LblO1(4).Caption) Then
j=1 LblO1(4).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblN1(14).Caption) Then j=1
LblN1(14).ForeColor = &HFF00&
ElseIf Val(LblDraw.Caption) = Val(LblO1(5).Caption) Then Private Sub CmdNew_Click()
LblO1(5).ForeColor = &HFF00& CmdGen.Enabled = True
j=1 CmdNew.Enabled = False
ElseIf Val(LblDraw.Caption) = Val(LblO1(6).Caption) Then CmdDraw.Enabled = False
LblO1(6).ForeColor = &HFF00& CmdPlay.Enabled = True
j=1 OptBlock.Enabled = False
ElseIf Val(LblDraw.Caption) = Val(LblO1(7).Caption) Then OptVLine.Enabled = False
LblO1(7).ForeColor = &HFF00& OptHLine.Enabled = False
j=1
ElseIf Val(LblDraw.Caption) = Val(LblO1(8).Caption) Then For b = 0 To 4
LblO1(8).ForeColor = &HFF00& LblB(b).Caption = ""
j=1 LblB(b).ForeColor = &HFF80FF
ElseIf Val(LblDraw.Caption) = Val(LblO1(9).Caption) Then LblB(b).BackColor = vbBlack
LblO1(9).ForeColor = &HFF00& Next b
j=1 For i = 0 To 4
ElseIf Val(LblDraw.Caption) = Val(LblO1(10).Caption) Then LblI(i).Caption = ""
LblO1(10).ForeColor = &HFF00& LblI(i).ForeColor = &HFF80FF
j=1 LblI(i).BackColor = vbBlack
ElseIf Val(LblDraw.Caption) = Val(LblO1(11).Caption) Then Next i
LblO1(11).ForeColor = &HFF00& For n = 0 To 3
j=1 LblN(n).Caption = ""
ElseIf Val(LblDraw.Caption) = Val(LblO1(12).Caption) Then LblN(n).ForeColor = &HFF80FF
LblO1(12).ForeColor = &HFF00& LblN(n).BackColor = vbBlack
j=1 Next n
ElseIf Val(LblDraw.Caption) = Val(LblO1(13).Caption) Then For g = 0 To 4
LblO1(13).ForeColor = &HFF00& LblG(g).Caption = ""
j=1 LblG(g).ForeColor = &HFF80FF
ElseIf Val(LblDraw.Caption) = Val(LblO1(14).Caption) Then LblG(g).BackColor = vbBlack
LblO1(14).ForeColor = &HFF00& Next g
j=1 For o = 0 To 4
End If LblO(o).Caption = ""
End Sub LblO(o).ForeColor = &HFF80FF
LblO(o).BackColor = vbBlack
Private Sub CmdGen_Click() Next o
CmdGen.Enabled = True For b = 0 To 14
CmdDraw.Enabled = False LblB1(b).ForeColor = vbBlue
CmdNew.Enabled = False Next b
CmdPlay.Enabled = True For i = 0 To 14
OptBlock.Enabled = False LblI1(i).ForeColor = vbBlue
OptVLine.Enabled = False Next i
OptHLine.Enabled = False For n = 0 To 14
LblN1(n).ForeColor = vbBlue
For b = 0 To 4 Next n
LblB(b).Caption = Int(15 * Rnd()) + 1 For g = 0 To 14
Next b LblG1(g).ForeColor = vbBlue
For i = 0 To 4 Next g
LblI(i).Caption = Int(15 * Rnd()) + 16 For o = 0 To 14
Next i LblO1(o).ForeColor = vbBlue
For n = 0 To 3 Next o
LblN(n).Caption = Int(15 * Rnd()) + 31 LblDraw.Caption = "No."
Next n LblLetter.Caption = "Letter"
For g = 0 To 4 LblMes.Caption = ""
LblG(g).Caption = Int(15 * Rnd()) + 46
Next g Private Sub CmdPlay_Click()
For o = 0 To 4 CmdGen.Enabled = False
LblO(o).Caption = Int(15 * Rnd()) + 61 CmdNew.Enabled = False
Next o CmdDraw.Enabled = False
End Sub CmdPlay.Enabled = True
OptBlock.Enabled = True
Private Sub CmdIns_Click() OptVLine.Enabled = True
Form2.Show OptHLine.Enabled = True
Unload Me End Sub
End Sub
Private Sub OptBlock_Click() LblI(4).BackColor = &H80FFFF
OptBlock.Enabled = True tanong
OptVLine.Enabled = False End Function
OptHLine.Enabled = False
CmdDraw.Enabled = True Private Function v3()
CmdPlay.Enabled = False LblN(0).ForeColor = vbBlack
CmdNew.Enabled = True LblN(1).ForeColor = vbBlack
End Sub LblN(2).ForeColor = vbBlack
LblN(3).ForeColor = vbBlack
Private Sub OptHLine_Click() LblN(0).BackColor = &H80FFFF
OptBlock.Enabled = False LblN(1).BackColor = &H80FFFF
OptVLine.Enabled = False LblN(2).BackColor = &H80FFFF
OptHLine.Enabled = True LblN(3).BackColor = &H80FFFF
CmdDraw.Enabled = True End Function
CmdPlay.Enabled = False
CmdGen.Enabled = False Private Function v4()
CmdNew.Enabled = True LblG(0).ForeColor = vbBlack
End Sub LblG(1).ForeColor = vbBlack
LblG(2).ForeColor = vbBlack
Private Sub OptVLine_Click() LblG(3).ForeColor = vbBlack
OptBlock.Enabled = False LblG(4).ForeColor = vbBlack
OptVLine.Enabled = True LblG(0).BackColor = &H80FFFF
OptHLine.Enabled = False LblG(1).BackColor = &H80FFFF
CmdDraw.Enabled = True LblG(2).BackColor = &H80FFFF
CmdPlay.Enabled = False LblG(3).BackColor = &H80FFFF
CmdGen.Enabled = False LblG(4).BackColor = &H80FFFF
CmdNew.Enabled = True End Function
End Sub
Private Function v5()
Private Sub CmdExit_Click() LblO(0).ForeColor = vbBlack
ans = MsgBox ("Do You Want to Stop Playing, and EXIT...?", LblO(1).ForeColor = vbBlack
vbYesNoCancel + vbQuestion + 256, "Confirmation") LblO(2).ForeColor = vbBlack
If ans = 7 And ans = 2 Then LblO(3).ForeColor = vbBlack
ElseIf ans = 6 Then LblO(4).ForeColor = vbBlack
MsgBox ("Thank You for Playing my BINGO, GoodBye...!") LblO(0).BackColor = &H80FFFF
End LblO(1).BackColor = &H80FFFF
End If LblO(2).BackColor = &H80FFFF
End Sub LblO(3).BackColor = &H80FFFF
LblO(4).BackColor = &H80FFFF
Private Function v1() End Function
LblB(0).ForeColor = vbBlack
LblB(1).ForeColor = vbBlack Private Function tanong()
LblB(2).ForeColor = vbBlack LblMes.Caption = "You Win...!"
LblB(3).ForeColor = vbBlack MsgBox ("You Win...! CONGRATS...!")
LblB(4).ForeColor = vbBlack End Function
LblB(0).BackColor = &H80FFFF
LblB(1).BackColor = &H80FFFF Private Function h1()
LblB(2).BackColor = &H80FFFF LblB(0).ForeColor = vbBlack
LblB(3).BackColor = &H80FFFF LblI(0).ForeColor = vbBlack
LblB(4).BackColor = &H80FFFF LblN(0).ForeColor = vbBlack
tanong LblG(0).ForeColor = vbBlack
End Function LblO(0).ForeColor = vbBlack
LblB(0).BackColor = &H80FFFF
Private Function v2() LblI(0).BackColor = &H80FFFF
LblI(0).ForeColor = vbBlack LblN(0).BackColor = &H80FFFF
LblI(1).ForeColor = vbBlack LblG(0).BackColor = &H80FFFF
LblI(2).ForeColor = vbBlack LblO(0).BackColor = &H80FFFF
LblI(3).ForeColor = vbBlack tanong
LblI(4).ForeColor = vbBlack End Function
LblI(0).BackColor = &H80FFFF
LblI(1).BackColor = &H80FFFF
LblI(2).BackColor = &H80FFFF
LblI(3).BackColor = &H80FFFF
Private Function h2() End Function
LblB(1).ForeColor = vbBlack Private Function d2()
LblI(1).ForeColor = vbBlack LblB(4).ForeColor = vbBlack
LblN(1).ForeColor = vbBlack LblI(3).ForeColor = vbBlack
LblG(1).ForeColor = vbBlack LblG(1).ForeColor = vbBlack
LblO(1).ForeColor = vbBlack LblO(0).ForeColor = vbBlack
LblB(1).BackColor = &H80FFFF LblB(4).BackColor = &H80FFFF
LblI(1).BackColor = &H80FFFF LblI(3).BackColor = &H80FFFF
LblN(1).BackColor = &H80FFFF LblG(1).BackColor = &H80FFFF
LblG(1).BackColor = &H80FFFF LblO(0).BackColor = &H80FFFF
LblO(1).BackColor = &H80FFFF tanong
tanong End Function
End Function

Private Function h3()

LblB(2).ForeColor = vbBlack
LblI(2).ForeColor = vbBlack
LblG(2).ForeColor = vbBlack
LblO(2).ForeColor = vbBlack
LblB(2).BackColor = &H80FFFF
LblI(2).BackColor = &H80FFFF
LblG(2).BackColor = &H80FFFF
LblO(2).BackColor = &H80FFFF
Tanong
End Function

Private Function h4()

LblB(3).ForeColor = vbBlack
LblI(3).ForeColor = vbBlack
LblN(2).ForeColor = vbBlack
LblG(3).ForeColor = vbBlack
LblO(3).ForeColor = vbBlack
LblB(3).BackColor = &H80FFFF
LblI(3).BackColor = &H80FFFF
LblN(2).BackColor = &H80FFFF
LblG(3).BackColor = &H80FFFF
LblO(3).BackColor = &H80FFFF
tanong
End Function

Private Function h5()

LblB(4).ForeColor = vbBlack
LblI(4).ForeColor = vbBlack
LblN(3).ForeColor = vbBlack
LblG(4).ForeColor = vbBlack
LblO(4).ForeColor = vbBlack
LblB(4).BackColor = &H80FFFF
LblI(4).BackColor = &H80FFFF
LblN(3).BackColor = &H80FFFF
LblG(4).BackColor = &H80FFFF
LblO(4).BackColor = &H80FFFF
tanong
End Function

Private Function d1()

LblB(0).ForeColor = vbBlack
LblI(1).ForeColor = vbBlack
LblG(3).ForeColor = vbBlack
LblO(4).ForeColor = vbBlack
LblB(0).BackColor = &H80FFFF
LblI(1).BackColor = &H80FFFF
LblG(3).BackColor = &H80FFFF
LblO(4).BackColor = &H80FFFF