Bingo

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

Private Sub CmdDraw_Click() CmdGen.Enabled = False CmdDraw.Enabled = True CmdNew.Enabled = True CmdPlay.Enabled = False If OptVLine = True Then If LblB(0).ForeColor = &HFF00& And LblB(1).ForeColor = &HFF00& And LblB(2).ForeColor = &HFF00& And LblB(3).ForeColor = &HFF00& And LblB(4).ForeColor = &HFF00& Then v1 If LblI(0).ForeColor = &HFF00& And LblI(1).ForeColor = &HFF00& And LblI(2).ForeColor = &HFF00& And LblI(3).ForeColor = &HFF00& And LblI(4).ForeColor = &HFF00& Then v2 If LblN(0).ForeColor = &HFF00& And LblN(1).ForeColor = &HFF00& And LblN(2).ForeColor = &HFF00& And LblN(3).ForeColor = &HFF00& Then v3 If LblG(0).ForeColor = &HFF00& And LblG(1).ForeColor = &HFF00& And LblG(2).ForeColor = &HFF00& And LblG(3).ForeColor = &HFF00& And LblG(4).ForeColor = &HFF00& Then v4 If LblO(0).ForeColor = &HFF00& And LblO(1).ForeColor = &HFF00& And LblO(2).ForeColor = &HFF00& And LblO(3).ForeColor = &HFF00& And LblO(4).ForeColor = &HFF00& Then v5 End If If OptHLine = True Then If LblB(0).ForeColor = &HFF00& And LblI(0).ForeColor = &HFF00& And LblN(0).ForeColor = &HFF00& And LblG(0).ForeColor = &HFF00& And LblO(0).ForeColor = &HFF00& Then h1 If LblB(1).ForeColor = &HFF00& And LblI(1).ForeColor = &HFF00& And LblN(1).ForeColor = &HFF00& And LblG(1).ForeColor = &HFF00& And LblO(1).ForeColor = &HFF00& Then h2 If LblB(2).ForeColor = &HFF00& And LblI(2).ForeColor = &HFF00& And LblG(2).ForeColor = &HFF00& And LblO(2).ForeColor = &HFF00& Then h3

Dim d, j LblDraw.Caption = Int(75 * Rnd()) + 1 If LblDraw <= 15 Then LblLetter.Caption = "B" ElseIf LblDraw.Caption >= 16 And LblDraw.Caption <= 30 Then LblLetter.Caption = "I" ElseIf LblDraw.Caption >= 31 And LblDraw.Caption <= 45 Then LblLetter.Caption = "N" ElseIf LblDraw.Caption And LblDraw.Caption <= 60 Then LblLetter.Caption = "G" ElseIf LblDraw.Caption >= 61 And LblDraw.Caption <= 75 Then LblLetter.Caption = "O" End if If Val(LblDraw.Caption) = Val(LblB(0).Caption) Then LblB(0).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblB(1).Caption) Then LblB(1).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblB(2).Caption) Then LblB(2).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblB(3).Caption) Then LblB(3).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblB(4).Caption) Then LblB(4).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblI(0).Caption) Then LblI(0).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblI(1).Caption) Then LblI(1).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblI(2).Caption) Then LblI(2).ForeColor = &HFF00& d=1

ElseIf Val(LblDraw.Caption) = Val(LblI(3).Caption) Then LblI(3).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblI(4).Caption) Then LblI(4).ForeColor = &HFF00& d=1

LblB1(3).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(4).Caption) Then LblB1(4).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(5).Caption) Then LblB1(5).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(6).Caption) Then LblB1(6).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(7).Caption) Then LblB1(7).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(8).Caption) Then LblB1(8).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(9).Caption) Then LblB1(9).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(10).Caption) Then LblB1(10).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(11).Caption) Then LblB1(11).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(12).Caption) Then LblB1(12).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(13).Caption) Then LblB1(13).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(14).Caption) Then LblB1(14).ForeColor = &HFF00& j=1

ElseIf Val(LblDraw.Caption) = Val(LblN(0).Caption) Then LblN(0).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblN(1).Caption) Then LblN(1).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblN(2).Caption) Then LblN(2).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblN(3).Caption) Then LblN(3).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblG(0).Caption) Then LblG(0).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblG(1).Caption) Then LblG(1).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblG(2).Caption) Then LblG(2).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblG(3).Caption) Then LblG(3).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblG(4).Caption) Then LblG(4).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblO(0).Caption) Then LblO(0).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblO(1).Caption) Then LblO(1).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblO(2).Caption) Then LblO(2).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblO(3).Caption) Then LblO(3).ForeColor = &HFF00& d=1 ElseIf Val(LblDraw.Caption) = Val(LblO(4).Caption) Then LblO(4).ForeColor = &HFF00& d=1 End If If Val(LblDraw.Caption) = Val(LblB1(0).Caption) Then LblB1(0).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(1).Caption) Then LblB1(1).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(2).Caption) Then LblB1(2).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblB1(3).Caption) Then

ElseIf Val(LblDraw.Caption) = Val(LblI1(0).Caption) Then LblI1(0).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(1).Caption) Then LblI1(1).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(2).Caption) Then LblI1(2).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(3).Caption) Then LblI1(3).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(4).Caption) Then LblI1(4).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(5).Caption) Then LblI1(5).ForeColor = &HFF00& j=1

ElseIf Val(LblDraw.Caption) = Val(LblI1(6).Caption) Then LblI1(6).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(7).Caption) Then LblI1(7).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(8).Caption) Then LblI1(8).ForeColor = &HFF00& j=1

ElseIf Val(LblDraw.Caption) = Val(LblI1(9).Caption) Then LblI1(9).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(10).Caption) Then LblI1(10).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(11).Caption) Then LblI1(11).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(12).Caption) Then LblI1(12).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(13).Caption) Then LblI1(13).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblI1(14).Caption) Then LblI1(14).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(0).Caption) Then LblN1(0).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(1).Caption) Then LblN1(1).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(2).Caption) Then LblN1(2).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(3).Caption) Then LblN1(3).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(4).Caption) Then LblN1(4).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(5).Caption) Then LblN1(5).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(6).Caption) Then LblN1(6).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(7).Caption) Then LblN1(7).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(8).Caption) Then LblN1(8).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(9).Caption) Then LblN1(9).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(10).Caption) Then LblN1(10).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(11).Caption) Then LblN1(11).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(12).Caption) Then LblN1(12).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(13).Caption) Then LblN1(13).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblN1(14).Caption) Then LblN1(14).ForeColor = &HFF00&

j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(0).Caption) Then LblG1(0).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(1).Caption) Then LblG1(1).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(2).Caption) Then LblG1(2).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(3).Caption) Then LblG1(3).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(4).Caption) Then LblG1(4).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(5).Caption) Then LblG1(5).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(6).Caption) Then LblG1(6).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(7).Caption) Then LblG1(7).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(8).Caption) Then LblG1(8).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(9).Caption) Then LblG1(9).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(10).Caption) Then LblG1(10).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(11).Caption) Then LblG1(11).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(12).Caption) Then LblG1(12).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(13).Caption) Then LblG1(13).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblG1(14).Caption) Then LblG1(14).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(0).Caption) Then LblO1(0).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(1).Caption) Then LblO1(1).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(2).Caption) Then LblO1(2).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(3).Caption) Then LblO1(3).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(4).Caption) Then LblO1(4).ForeColor = &HFF00& j=1

ElseIf Val(LblDraw.Caption) = Val(LblO1(5).Caption) Then LblO1(5).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(6).Caption) Then LblO1(6).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(7).Caption) Then LblO1(7).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(8).Caption) Then LblO1(8).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(9).Caption) Then LblO1(9).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(10).Caption) Then LblO1(10).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(11).Caption) Then LblO1(11).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(12).Caption) Then LblO1(12).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(13).Caption) Then LblO1(13).ForeColor = &HFF00& j=1 ElseIf Val(LblDraw.Caption) = Val(LblO1(14).Caption) Then LblO1(14).ForeColor = &HFF00& j=1 End If End Sub Private Sub CmdGen_Click() CmdGen.Enabled = True CmdDraw.Enabled = False CmdNew.Enabled = False CmdPlay.Enabled = True OptBlock.Enabled = False OptVLine.Enabled = False OptHLine.Enabled = False For b = 0 To 4 LblB(b).Caption = Int(15 * Rnd()) + 1 Next b For i = 0 To 4 LblI(i).Caption = Int(15 * Rnd()) + 16 Next i For n = 0 To 3 LblN(n).Caption = Int(15 * Rnd()) + 31 Next n For g = 0 To 4 LblG(g).Caption = Int(15 * Rnd()) + 46 Next g For o = 0 To 4 LblO(o).Caption = Int(15 * Rnd()) + 61 Next o End Sub Private Sub CmdIns_Click() Form2.Show Unload Me End Sub

Private Sub CmdNew_Click() CmdGen.Enabled = True CmdNew.Enabled = False CmdDraw.Enabled = False CmdPlay.Enabled = True OptBlock.Enabled = False OptVLine.Enabled = False OptHLine.Enabled = False For b = 0 To 4 LblB(b).Caption = "" LblB(b).ForeColor = &HFF80FF LblB(b).BackColor = vbBlack Next b For i = 0 To 4 LblI(i).Caption = "" LblI(i).ForeColor = &HFF80FF LblI(i).BackColor = vbBlack Next i For n = 0 To 3 LblN(n).Caption = "" LblN(n).ForeColor = &HFF80FF LblN(n).BackColor = vbBlack Next n For g = 0 To 4 LblG(g).Caption = "" LblG(g).ForeColor = &HFF80FF LblG(g).BackColor = vbBlack Next g For o = 0 To 4 LblO(o).Caption = "" LblO(o).ForeColor = &HFF80FF LblO(o).BackColor = vbBlack Next o For b = 0 To 14 LblB1(b).ForeColor = vbBlue Next b For i = 0 To 14 LblI1(i).ForeColor = vbBlue Next i For n = 0 To 14 LblN1(n).ForeColor = vbBlue Next n For g = 0 To 14 LblG1(g).ForeColor = vbBlue Next g For o = 0 To 14 LblO1(o).ForeColor = vbBlue Next o LblDraw.Caption = "No." LblLetter.Caption = "Letter" LblMes.Caption = "" Private Sub CmdPlay_Click() CmdGen.Enabled = False CmdNew.Enabled = False CmdDraw.Enabled = False CmdPlay.Enabled = True OptBlock.Enabled = True OptVLine.Enabled = True OptHLine.Enabled = True End Sub

Private Sub OptBlock_Click() OptBlock.Enabled = True OptVLine.Enabled = False OptHLine.Enabled = False CmdDraw.Enabled = True CmdPlay.Enabled = False CmdNew.Enabled = True End Sub Private Sub OptHLine_Click() OptBlock.Enabled = False OptVLine.Enabled = False OptHLine.Enabled = True CmdDraw.Enabled = True CmdPlay.Enabled = False CmdGen.Enabled = False CmdNew.Enabled = True End Sub Private Sub OptVLine_Click() OptBlock.Enabled = False OptVLine.Enabled = True OptHLine.Enabled = False CmdDraw.Enabled = True CmdPlay.Enabled = False CmdGen.Enabled = False CmdNew.Enabled = True End Sub Private Sub CmdExit_Click() ans = MsgBox ("Do You Want to Stop Playing, and EXIT...?", vbYesNoCancel + vbQuestion + 256, "Confirmation") If ans = 7 And ans = 2 Then ElseIf ans = 6 Then MsgBox ("Thank You for Playing my BINGO, GoodBye...!") End End If End Sub Private Function v1() LblB(0).ForeColor = vbBlack LblB(1).ForeColor = vbBlack LblB(2).ForeColor = vbBlack LblB(3).ForeColor = vbBlack LblB(4).ForeColor = vbBlack LblB(0).BackColor = &H80FFFF LblB(1).BackColor = &H80FFFF LblB(2).BackColor = &H80FFFF LblB(3).BackColor = &H80FFFF LblB(4).BackColor = &H80FFFF tanong End Function Private Function v2() LblI(0).ForeColor = vbBlack LblI(1).ForeColor = vbBlack LblI(2).ForeColor = vbBlack LblI(3).ForeColor = vbBlack LblI(4).ForeColor = vbBlack LblI(0).BackColor = &H80FFFF LblI(1).BackColor = &H80FFFF LblI(2).BackColor = &H80FFFF LblI(3).BackColor = &H80FFFF

LblI(4).BackColor = &H80FFFF tanong End Function Private Function v3() LblN(0).ForeColor = vbBlack LblN(1).ForeColor = vbBlack LblN(2).ForeColor = vbBlack LblN(3).ForeColor = vbBlack LblN(0).BackColor = &H80FFFF LblN(1).BackColor = &H80FFFF LblN(2).BackColor = &H80FFFF LblN(3).BackColor = &H80FFFF End Function Private Function v4() LblG(0).ForeColor = vbBlack LblG(1).ForeColor = vbBlack LblG(2).ForeColor = vbBlack LblG(3).ForeColor = vbBlack LblG(4).ForeColor = vbBlack LblG(0).BackColor = &H80FFFF LblG(1).BackColor = &H80FFFF LblG(2).BackColor = &H80FFFF LblG(3).BackColor = &H80FFFF LblG(4).BackColor = &H80FFFF End Function Private Function v5() LblO(0).ForeColor = vbBlack LblO(1).ForeColor = vbBlack LblO(2).ForeColor = vbBlack LblO(3).ForeColor = vbBlack LblO(4).ForeColor = vbBlack LblO(0).BackColor = &H80FFFF LblO(1).BackColor = &H80FFFF LblO(2).BackColor = &H80FFFF LblO(3).BackColor = &H80FFFF LblO(4).BackColor = &H80FFFF End Function Private Function tanong() LblMes.Caption = "You Win...!" MsgBox ("You Win...! CONGRATS...!") End Function Private Function h1() LblB(0).ForeColor = vbBlack LblI(0).ForeColor = vbBlack LblN(0).ForeColor = vbBlack LblG(0).ForeColor = vbBlack LblO(0).ForeColor = vbBlack LblB(0).BackColor = &H80FFFF LblI(0).BackColor = &H80FFFF LblN(0).BackColor = &H80FFFF LblG(0).BackColor = &H80FFFF LblO(0).BackColor = &H80FFFF tanong End Function

Private Function h2() LblB(1).ForeColor = vbBlack LblI(1).ForeColor = vbBlack LblN(1).ForeColor = vbBlack LblG(1).ForeColor = vbBlack LblO(1).ForeColor = vbBlack LblB(1).BackColor = &H80FFFF LblI(1).BackColor = &H80FFFF LblN(1).BackColor = &H80FFFF LblG(1).BackColor = &H80FFFF LblO(1).BackColor = &H80FFFF tanong 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

End Function Private Function d2() LblB(4).ForeColor = vbBlack LblI(3).ForeColor = vbBlack LblG(1).ForeColor = vbBlack LblO(0).ForeColor = vbBlack LblB(4).BackColor = &H80FFFF LblI(3).BackColor = &H80FFFF LblG(1).BackColor = &H80FFFF LblO(0).BackColor = &H80FFFF tanong End Function