Option Explicit Dim mintCounter As Integer 'Counter for the "End Game" message Private Sub cmdEnd_Click() 'Clears all the image boxes and labels for a new game Dim X As Integer For X = 1 To 100 Image1(X).Picture = Image4.Picture Next X Image1(45).Picture = Image2.Picture Image1(56).Picture = Image2.Picture Image1(46).Picture = Image3.Picture Image1(55).Picture = Image3.Picture 'Clears the labels so a new game may begin lblPlayer1.Caption = "" lblPlayer2.Caption = "" lblPlayer1.Font.Bold = False lblPlayer2.Font.Bold = False cmdNewGame.SetFocus mintCounter = 0 End Sub Private Sub cmdNewGame_Click() 'Begin a new game 'Show the Names form cmdEnd_Click frmNames.Show vbModal End Sub Private Sub cmdScore_Click() Dim intBlack As Integer Dim intWhite As Integer Dim n As Integer 'Score counter For n = 1 To 100 If Image1(n).Picture = Image2.Picture Then intBlack = intBlack + 1 ElseIf Image1(n).Picture = Image3.Picture Then intWhite = intWhite + 1 End If Next n 'Display the score for each player MsgBox "Black Player" & " -- " & intBlack & vbCrLf & "White Player" & " -- " & intWhite, vbOKOnly End Sub Private Sub Form_Load() Image1(45).Picture = Image2.Picture Image1(46).Picture = Image3.Picture Image1(55).Picture = Image3.Picture Image1(56).Picture = Image2.Picture End Sub Private Sub Image1_Click(Index As Integer) Dim intBlack As Integer 'Number of black pieces on the board Dim intWhite As Integer 'Number of white pieces on the board Dim n As Integer 'Variable for the "For/Next" loops 'Number counter to trigger the "Game Over" message box If mintCounter < 96 Then If Image1(Index).Picture = Image2.Picture _ Or Image1(Index).Picture = Image3.Picture Then mintCounter = mintCounter Else mintCounter = mintCounter + 1 End If ElseIf mintCounter = 96 Then mintCounter = mintCounter If intBlack > intWhite Then MsgBox "Player 1 Wins1" & vbCrLf & "Game Over", vbOKOnly, "" ElseIf intWhite > intBlack Then MsgBox "Player 2 Wins!" & vbcfle & "Game Over", vbOKOnly, "" End If End If 'THIS IS ALL FOR THE BLACK PLAYER'S PIECES 'Make the black dots appear at first If lblPlayer1.Font.Bold = True Then If Image1(Index).Picture = Image4.Picture Then Image1(Index).Picture = Image2.Picture 'The following are error messages that stop from playing taken spots ElseIf Image1(Index).Picture = Image3.Picture Then MsgBox "That move is not allowed!" + vbCrLf + "Please make another move.", vbOKOnly ElseIf Image1(Index).Picture = Image2.Picture Then MsgBox "You have already moved here!" + vbCrLf + "Please make another move.", vbOKOnly End If 'Sets the correct functions for the black player only Call VTrapBlack Call HTrapBlack Call DRTrapBlack Call DLTrapBlack End If 'THIS IS ALL FOR THE WHITE PLAYER'S PIECES 'Make the white dots appear on the screen If lblPlayer2.Font.Bold = True Then If Image1(Index).Picture = Image4.Picture Then Image1(Index).Picture = Image3.Picture 'The following are error messages that stop from playing taken spots ElseIf Image1(Index).Picture = Image3.Picture Then MsgBox "You have already moved here!" + vbCrLf + "Please make another move.", vbOKOnly ElseIf Image1(Index).Picture = Image2.Picture Then MsgBox "That move is not allowed!" + vbCrLf + "Please make another move.", vbOKOnly End If 'Sets the correct functions for the white player only Call VTrapWhite End If 'Changes players after each click If lblPlayer1.Font.Bold = True Then lblPlayer1.Font.Bold = False lblPlayer2.Font.Bold = True ElseIf lblPlayer2.Font.Bold = True Then lblPlayer1.Font.Bold = True lblPlayer2.Font.Bold = False End If End Sub Private Sub mnuFileExit_Click() 'Ends the program End End Sub Private Sub mnuFileNewGame_Click() 'Hits the new game button cmdNewGame_Click End Sub Private Function VTrapBlack() Dim k As Integer 'Changes from white to black in vertical traps For k = 1 To 100 If Image1(k).Picture = Image3.Picture Then 'Vertically un-trapable dots If k < 10 Or k > 90 Then End If 'Changes 1 dot from white to black If k > 10 And k < 91 Then If Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image2.Picture Then Image1(k).Picture = Image2.Picture End If End If 'Changes 2 dots from white to black If k > 20 And k < 81 Then If Image1(k - 10).Picture = Image2.Picture And Image1(k + 10).Picture = Image3.Picture _ And Image1(k + 20).Picture = Image2.Picture Then Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture End If If Image1(k - 20).Picture = Image2.Picture And Image1(k - 10).Picture = Image3.Picture _ And Image1(k + 10).Picture = Image2.Picture Then Image1(k).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture End If End If 'Changes any 3 dots from white to black If k > 30 And k < 71 Then If Image1(k - 30).Picture = Image2.Picture And Image1(k - 20).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k + 10).Picture = Image2.Picture Then Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture End If If Image1(k - 20).Picture = Image2.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k + 20).Picture = Image2.Picture Then Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture End If If Image1(k - 10).Picture = Image2.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image3.Picture And Image1(k + 30).Picture = Image2.Picture Then Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture End If End If 'Changes any 4 dots from white to black If k > 40 And k < 61 Then If Image1(k - 40).Picture = Image2.Picture And Image1(k - 30).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image3.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image2.Picture Then Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture End If If Image1(k - 30).Picture = Image2.Picture And Image1(k - 20).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image2.Picture Then Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture End If If Image1(k - 20).Picture = Image2.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k + 20).Picture = Image3.Picture And _ Image1(k + 30).Picture = Image2.Picture Then Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture End If If Image1(k - 10).Picture = Image2.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image3.Picture And Image1(k + 30).Picture = Image2.Picture And _ Image1(k + 40).Picture = Image2.Picture Then Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture End If End If 'Changes 5 dots from white to black If k > 50 And k < 91 Then If Image1(k - 50).Picture = Image2.Picture And Image1(k - 40).Picture = Image3.Picture And _ Image1(k - 30).Picture = Image3.Picture And Image1(k - 20).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k + 10).Picture = Image2.Picture Then Image1(k - 40).Picture = Image2.Picture Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture End If End If If k > 40 And k < 81 Then If Image1(k - 40).Picture = Image2.Picture And Image1(k - 30).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image3.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k + 20).Picture = Image2.Picture Then Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture End If End If If k > 30 And k < 71 Then If Image1(k - 30).Picture = Image2.Picture And Image1(k - 20).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image3.Picture And Image1(k + 30).Picture = Image2.Picture Then Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture End If End If If k > 20 And k < 61 Then If Image1(k - 20).Picture = Image2.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k + 20).Picture = Image3.Picture And _ Image1(k + 30).Picture = Image3.Picture And Image1(k + 40).Picture = Image2.Picture Then Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture End If End If If k > 10 And k < 51 Then If Image1(k - 10).Picture = Image2.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image3.Picture And Image1(k + 30).Picture = Image3.Picture And _ Image1(k + 40).Picture = Image3.Picture And Image1(k + 50).Picture = Image2.Picture Then Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture Image1(k + 40).Picture = Image2.Picture End If End If 'Changes 6 dots from white to black If k > 60 And k < 91 Then If Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image3.Picture And Image1(k - 30).Picture = Image3.Picture And _ Image1(k - 40).Picture = Image3.Picture And Image1(k - 50).Picture = Image3.Picture And _ Image1(k - 60).Picture = Image2.Picture Then Image1(k - 50).Picture = Image2.Picture Image1(k - 40).Picture = Image2.Picture Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture End If End If If k > 50 And k < 81 Then If Image1(k + 20).Picture = Image2.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k - 20).Picture = Image3.Picture And _ Image1(k - 30).Picture = Image3.Picture And Image1(k - 40).Picture = Image3.Picture And _ Image1(k - 50).Picture = Image2.Picture Then Image1(k - 40).Picture = Image2.Picture Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture End If End If If k > 40 And k < 71 Then If Image1(k + 30).Picture = Image2.Picture And Image1(k + 20).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image3.Picture And Image1(k - 30).Picture = Image3.Picture And _ Image1(k - 40).Picture = Image2.Picture Then Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture End If End If If k > 30 And k < 61 Then If Image1(k + 40).Picture = Image2.Picture And Image1(k + 30).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image3.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k - 20).Picture = Image3.Picture And _ Image1(k - 30).Picture = Image2.Picture Then Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture End If End If If k > 20 And k < 51 Then If Image1(k + 50).Picture = Image2.Picture And Image1(k + 40).Picture = Image3.Picture And _ Image1(k + 30).Picture = Image3.Picture And Image1(k + 20).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image2.Picture Then Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture Image1(k + 40).Picture = Image2.Picture End If End If If k > 10 And k < 41 Then If Image1(k + 60).Picture = Image2.Picture And Image1(k + 50).Picture = Image3.Picture And _ Image1(k + 40).Picture = Image3.Picture And Image1(k + 30).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image3.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image2.Picture Then Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture Image1(k + 40).Picture = Image2.Picture Image1(k + 50).Picture = Image2.Picture End If End If 'Changes 7 dots from white to black If k > 70 And k < 91 Then If Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image3.Picture And Image1(k - 30).Picture = Image3.Picture And _ Image1(k - 40).Picture = Image3.Picture And Image1(k - 50).Picture = Image3.Picture And _ Image1(k - 60).Picture = Image3.Picture And Image1(k - 70).Picture = Image2.Picture Then Image1(k - 60).Picture = Image2.Picture Image1(k - 50).Picture = Image2.Picture Image1(k - 40).Picture = Image2.Picture Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture End If End If If k > 60 And k < 81 Then If Image1(k + 20).Picture = Image2.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k - 20).Picture = Image3.Picture And _ Image1(k - 30).Picture = Image3.Picture And Image1(k - 40).Picture = Image3.Picture And _ Image1(k - 50).Picture = Image3.Picture And Image1(k - 60).Picture = Image2.Picture Then Image1(k - 50).Picture = Image2.Picture Image1(k - 40).Picture = Image2.Picture Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture End If End If If k > 50 And k < 71 Then If Image1(k + 30).Picture = Image2.Picture And Image1(k + 20).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image3.Picture And Image1(k - 30).Picture = Image3.Picture And _ Image1(k - 40).Picture = Image3.Picture And Image1(k - 50).Picture = Image2.Picture Then Image1(k - 40).Picture = Image2.Picture Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture End If End If If k > 40 And k < 61 Then If Image1(k + 40).Picture = Image2.Picture And Image1(k + 30).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image3.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k - 20).Picture = Image3.Picture And _ Image1(k - 30).Picture = Image3.Picture And Image1(k - 40).Picture = Image2.Picture Then Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture End If End If If k > 30 And k < 51 Then If Image1(k + 50).Picture = Image2.Picture And Image1(k + 40).Picture = Image3.Picture And _ Image1(k + 30).Picture = Image3.Picture And Image1(k + 20).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image3.Picture And Image1(k - 30).Picture = Image2.Picture Then Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture Image1(k + 40).Picture = Image2.Picture End If End If If k > 20 And k < 41 Then If Image1(k + 60).Picture = Image2.Picture And Image1(k + 50).Picture = Image3.Picture And _ Image1(k + 40).Picture = Image3.Picture And Image1(k + 30).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image3.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k - 20).Picture = Image2.Picture Then Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture Image1(k + 40).Picture = Image2.Picture Image1(k + 50).Picture = Image2.Picture End If End If If k > 10 And k < 31 Then If Image1(k + 70).Picture = Image2.Picture And Image1(k + 60).Picture = Image3.Picture And _ Image1(k + 50).Picture = Image3.Picture And Image1(k + 40).Picture = Image3.Picture And _ Image1(k + 30).Picture = Image3.Picture And Image1(k + 20).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image2.Picture Then Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture Image1(k + 40).Picture = Image2.Picture Image1(k + 50).Picture = Image2.Picture Image1(k + 60).Picture = Image2.Picture End If End If 'Change 8 dots from white to black If k > 80 And k < 91 Then If Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image3.Picture And Image1(k - 30).Picture = Image3.Picture And _ Image1(k - 40).Picture = Image3.Picture And Image1(k - 50).Picture = Image3.Picture And _ Image1(k - 60).Picture = Image3.Picture And Image1(k - 70).Picture = Image3.Picture And _ Image1(k - 80).Picture = Image2.Picture Then Image1(k - 70).Picture = Image2.Picture Image1(k - 60).Picture = Image2.Picture Image1(k - 50).Picture = Image2.Picture Image1(k - 40).Picture = Image2.Picture Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture End If End If If k > 70 And k < 81 Then If Image1(k + 20).Picture = Image2.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k - 20).Picture = Image3.Picture And _ Image1(k - 30).Picture = Image3.Picture And Image1(k - 40).Picture = Image3.Picture And _ Image1(k - 50).Picture = Image3.Picture And Image1(k - 60).Picture = Image3.Picture And _ Image1(k - 70).Picture = Image2.Picture Then Image1(k - 60).Picture = Image2.Picture Image1(k - 50).Picture = Image2.Picture Image1(k - 40).Picture = Image2.Picture Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture End If End If If k > 60 And k < 71 Then If Image1(k + 30).Picture = Image2.Picture And Image1(k + 20).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image3.Picture And Image1(k - 30).Picture = Image3.Picture And _ Image1(k - 40).Picture = Image3.Picture And Image1(k - 50).Picture = Image3.Picture And _ Image1(k - 60).Picture = Image2.Picture Then Image1(k - 50).Picture = Image2.Picture Image1(k - 40).Picture = Image2.Picture Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture End If End If If k > 50 And k < 61 Then If Image1(k + 40).Picture = Image2.Picture And Image1(k + 30).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image3.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k - 20).Picture = Image3.Picture And _ Image1(k - 30).Picture = Image3.Picture And Image1(k - 40).Picture = Image3.Picture And _ Image1(k - 50).Picture = Image2.Picture Then Image1(k - 40).Picture = Image2.Picture Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture End If End If If k > 40 And k < 51 Then If Image1(k + 50).Picture = Image2.Picture And Image1(k + 40).Picture = Image3.Picture And _ Image1(k + 30).Picture = Image3.Picture And Image1(k + 20).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image3.Picture And Image1(k - 30).Picture = Image3.Picture And _ Image1(k - 40).Picture = Image2.Picture Then Image1(k - 30).Picture = Image2.Picture Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture Image1(k + 40).Picture = Image2.Picture End If End If If k > 30 And k < 41 Then If Image1(k + 60).Picture = Image2.Picture And Image1(k + 50).Picture = Image3.Picture And _ Image1(k + 40).Picture = Image3.Picture And Image1(k + 30).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image3.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image3.Picture And Image1(k - 20).Picture = Image3.Picture And _ Image1(k - 30).Picture = Image2.Picture Then Image1(k - 20).Picture = Image2.Picture Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture Image1(k + 40).Picture = Image2.Picture Image1(k + 50).Picture = Image2.Picture End If End If If k > 20 And k < 31 Then If Image1(k + 70).Picture = Image2.Picture And Image1(k + 60).Picture = Image3.Picture And _ Image1(k + 50).Picture = Image3.Picture And Image1(k + 40).Picture = Image3.Picture And _ Image1(k + 30).Picture = Image3.Picture And Image1(k + 20).Picture = Image3.Picture And _ Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image3.Picture And _ Image1(k - 20).Picture = Image2.Picture Then Image1(k - 10).Picture = Image2.Picture Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture Image1(k + 40).Picture = Image2.Picture Image1(k + 50).Picture = Image2.Picture Image1(k + 60).Picture = Image2.Picture End If End If If k > 10 And k < 21 Then If Image1(k + 80).Picture = Image2.Picture And Image1(k + 70).Picture = Image3.Picture And _ Image1(k + 60).Picture = Image3.Picture And Image1(k + 50).Picture = Image3.Picture And _ Image1(k + 40).Picture = Image3.Picture And Image1(k + 30).Picture = Image3.Picture And _ Image1(k + 20).Picture = Image3.Picture And Image1(k + 10).Picture = Image3.Picture And _ Image1(k - 10).Picture = Image2.Picture Then Image1(k).Picture = Image2.Picture Image1(k + 10).Picture = Image2.Picture Image1(k + 20).Picture = Image2.Picture Image1(k + 30).Picture = Image2.Picture Image1(k + 40).Picture = Image2.Picture Image1(k + 50).Picture = Image2.Picture Image1(k + 60).Picture = Image2.Picture Image1(k + 70).Picture = Image2.Picture End If End If End If Next k End Function Private Function VTrapWhite() Dim k As Integer 'Changes from black to white in vertical traps For k = 1 To 100 If Image1(k).Picture = Image2.Picture Then 'Vertically un-trapable dots If k < 10 Or k > 90 Then End If 'Changes 1 dot from black to white If k > 10 And k < 91 Then If Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image3.Picture Then Image1(k).Picture = Image3.Picture End If End If 'Changes 2 dots from black to white If k > 20 And k < 81 Then If Image1(k - 10).Picture = Image3.Picture And Image1(k + 10).Picture = Image2.Picture _ And Image1(k + 20).Picture = Image3.Picture Then Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture End If If Image1(k - 20).Picture = Image3.Picture And Image1(k - 10).Picture = Image2.Picture _ And Image1(k + 10).Picture = Image3.Picture Then Image1(k).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture End If End If 'Changes any 3 dots from black to white If k > 30 And k < 71 Then If Image1(k - 30).Picture = Image3.Picture And Image1(k - 20).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k + 10).Picture = Image3.Picture Then Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture End If If Image1(k - 20).Picture = Image3.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k + 20).Picture = Image3.Picture Then Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture End If If Image1(k - 10).Picture = Image3.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image2.Picture And Image1(k + 30).Picture = Image3.Picture Then Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture End If End If 'Changes any 4 dots from black to white If k > 40 And k < 61 Then If Image1(k - 40).Picture = Image3.Picture And Image1(k - 30).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image2.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image3.Picture Then Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture End If If Image1(k - 30).Picture = Image3.Picture And Image1(k - 20).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image3.Picture Then Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture End If If Image1(k - 20).Picture = Image3.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k + 20).Picture = Image2.Picture And _ Image1(k + 30).Picture = Image3.Picture Then Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture End If If Image1(k - 10).Picture = Image3.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image2.Picture And Image1(k + 30).Picture = Image3.Picture And _ Image1(k + 40).Picture = Image3.Picture Then Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture End If End If 'Changes 5 dots from black to white If k > 50 And k < 91 Then If Image1(k - 50).Picture = Image3.Picture And Image1(k - 40).Picture = Image2.Picture And _ Image1(k - 30).Picture = Image2.Picture And Image1(k - 20).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k + 10).Picture = Image3.Picture Then Image1(k - 40).Picture = Image3.Picture Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture End If End If If k > 40 And k < 81 Then If Image1(k - 40).Picture = Image3.Picture And Image1(k - 30).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image2.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k + 20).Picture = Image3.Picture Then Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture End If End If If k > 30 And k < 71 Then If Image1(k - 30).Picture = Image3.Picture And Image1(k - 20).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image2.Picture And Image1(k + 30).Picture = Image3.Picture Then Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture End If End If If k > 20 And k < 61 Then If Image1(k - 20).Picture = Image3.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k + 20).Picture = Image2.Picture And _ Image1(k + 30).Picture = Image2.Picture And Image1(k + 40).Picture = Image3.Picture Then Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture End If End If If k > 10 And k < 51 Then If Image1(k - 10).Picture = Image3.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image2.Picture And Image1(k + 30).Picture = Image2.Picture And _ Image1(k + 40).Picture = Image2.Picture And Image1(k + 50).Picture = Image3.Picture Then Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture Image1(k + 40).Picture = Image3.Picture End If End If 'Changes 6 dots from black to white If k > 60 And k < 91 Then If Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image2.Picture And Image1(k - 30).Picture = Image2.Picture And _ Image1(k - 40).Picture = Image2.Picture And Image1(k - 50).Picture = Image2.Picture And _ Image1(k - 60).Picture = Image3.Picture Then Image1(k - 50).Picture = Image3.Picture Image1(k - 40).Picture = Image3.Picture Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture End If End If If k > 50 And k < 81 Then If Image1(k + 20).Picture = Image3.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k - 20).Picture = Image2.Picture And _ Image1(k - 30).Picture = Image2.Picture And Image1(k - 40).Picture = Image2.Picture And _ Image1(k - 50).Picture = Image3.Picture Then Image1(k - 40).Picture = Image3.Picture Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture End If End If If k > 40 And k < 71 Then If Image1(k + 30).Picture = Image3.Picture And Image1(k + 20).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image2.Picture And Image1(k - 30).Picture = Image2.Picture And _ Image1(k - 40).Picture = Image3.Picture Then Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture End If End If If k > 30 And k < 61 Then If Image1(k + 40).Picture = Image3.Picture And Image1(k + 30).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image2.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k - 20).Picture = Image2.Picture And _ Image1(k - 30).Picture = Image3.Picture Then Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture End If End If If k > 20 And k < 51 Then If Image1(k + 50).Picture = Image3.Picture And Image1(k + 40).Picture = Image2.Picture And _ Image1(k + 30).Picture = Image2.Picture And Image1(k + 20).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image3.Picture Then Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture Image1(k + 40).Picture = Image3.Picture End If End If If k > 10 And k < 41 Then If Image1(k + 60).Picture = Image3.Picture And Image1(k + 50).Picture = Image2.Picture And _ Image1(k + 40).Picture = Image2.Picture And Image1(k + 30).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image2.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image3.Picture Then Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture Image1(k + 40).Picture = Image3.Picture Image1(k + 50).Picture = Image3.Picture End If End If 'Changes 7 dots from black to white If k > 70 And k < 91 Then If Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image2.Picture And Image1(k - 30).Picture = Image2.Picture And _ Image1(k - 40).Picture = Image2.Picture And Image1(k - 50).Picture = Image2.Picture And _ Image1(k - 60).Picture = Image2.Picture And Image1(k - 70).Picture = Image3.Picture Then Image1(k - 60).Picture = Image3.Picture Image1(k - 50).Picture = Image3.Picture Image1(k - 40).Picture = Image3.Picture Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture End If End If If k > 60 And k < 81 Then If Image1(k + 20).Picture = Image3.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k - 20).Picture = Image2.Picture And _ Image1(k - 30).Picture = Image2.Picture And Image1(k - 40).Picture = Image2.Picture And _ Image1(k - 50).Picture = Image2.Picture And Image1(k - 60).Picture = Image3.Picture Then Image1(k - 50).Picture = Image3.Picture Image1(k - 40).Picture = Image3.Picture Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture End If End If If k > 50 And k < 71 Then If Image1(k + 30).Picture = Image3.Picture And Image1(k + 20).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image2.Picture And Image1(k - 30).Picture = Image2.Picture And _ Image1(k - 40).Picture = Image2.Picture And Image1(k - 50).Picture = Image3.Picture Then Image1(k - 40).Picture = Image3.Picture Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture End If End If If k > 40 And k < 61 Then If Image1(k + 40).Picture = Image3.Picture And Image1(k + 30).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image2.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k - 20).Picture = Image2.Picture And _ Image1(k - 30).Picture = Image2.Picture And Image1(k - 40).Picture = Image3.Picture Then Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture End If End If If k > 30 And k < 51 Then If Image1(k + 50).Picture = Image3.Picture And Image1(k + 40).Picture = Image2.Picture And _ Image1(k + 30).Picture = Image2.Picture And Image1(k + 20).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image2.Picture And Image1(k - 30).Picture = Image3.Picture Then Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture Image1(k + 40).Picture = Image3.Picture End If End If If k > 20 And k < 41 Then If Image1(k + 60).Picture = Image3.Picture And Image1(k + 50).Picture = Image2.Picture And _ Image1(k + 40).Picture = Image2.Picture And Image1(k + 30).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image2.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k - 20).Picture = Image3.Picture Then Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture Image1(k + 40).Picture = Image3.Picture Image1(k + 50).Picture = Image3.Picture End If End If If k > 10 And k < 31 Then If Image1(k + 70).Picture = Image3.Picture And Image1(k + 60).Picture = Image2.Picture And _ Image1(k + 50).Picture = Image2.Picture And Image1(k + 40).Picture = Image2.Picture And _ Image1(k + 30).Picture = Image2.Picture And Image1(k + 20).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image3.Picture Then Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture Image1(k + 40).Picture = Image3.Picture Image1(k + 50).Picture = Image3.Picture Image1(k + 60).Picture = Image3.Picture End If End If 'Change 8 dots from black to white If k > 80 And k < 91 Then If Image1(k + 10).Picture = Image3.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image2.Picture And Image1(k - 30).Picture = Image2.Picture And _ Image1(k - 40).Picture = Image2.Picture And Image1(k - 50).Picture = Image2.Picture And _ Image1(k - 60).Picture = Image2.Picture And Image1(k - 70).Picture = Image2.Picture And _ Image1(k - 80).Picture = Image3.Picture Then Image1(k - 70).Picture = Image3.Picture Image1(k - 60).Picture = Image3.Picture Image1(k - 50).Picture = Image3.Picture Image1(k - 40).Picture = Image3.Picture Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture End If End If If k > 70 And k < 81 Then If Image1(k + 20).Picture = Image3.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k - 20).Picture = Image2.Picture And _ Image1(k - 30).Picture = Image2.Picture And Image1(k - 40).Picture = Image2.Picture And _ Image1(k - 50).Picture = Image2.Picture And Image1(k - 60).Picture = Image2.Picture And _ Image1(k - 70).Picture = Image3.Picture Then Image1(k - 60).Picture = Image3.Picture Image1(k - 50).Picture = Image3.Picture Image1(k - 40).Picture = Image3.Picture Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture End If End If If k > 60 And k < 71 Then If Image1(k + 30).Picture = Image3.Picture And Image1(k + 20).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image2.Picture And Image1(k - 30).Picture = Image2.Picture And _ Image1(k - 40).Picture = Image2.Picture And Image1(k - 50).Picture = Image2.Picture And _ Image1(k - 60).Picture = Image3.Picture Then Image1(k - 50).Picture = Image3.Picture Image1(k - 40).Picture = Image3.Picture Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture End If End If If k > 50 And k < 61 Then If Image1(k + 40).Picture = Image3.Picture And Image1(k + 30).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image2.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k - 20).Picture = Image2.Picture And _ Image1(k - 30).Picture = Image2.Picture And Image1(k - 40).Picture = Image2.Picture And _ Image1(k - 50).Picture = Image3.Picture Then Image1(k - 40).Picture = Image3.Picture Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture End If End If If k > 40 And k < 51 Then If Image1(k + 50).Picture = Image3.Picture And Image1(k + 40).Picture = Image2.Picture And _ Image1(k + 30).Picture = Image2.Picture And Image1(k + 20).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image2.Picture And Image1(k - 30).Picture = Image2.Picture And _ Image1(k - 40).Picture = Image3.Picture Then Image1(k - 30).Picture = Image3.Picture Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture Image1(k + 40).Picture = Image3.Picture End If End If If k > 30 And k < 41 Then If Image1(k + 60).Picture = Image3.Picture And Image1(k + 50).Picture = Image2.Picture And _ Image1(k + 40).Picture = Image2.Picture And Image1(k + 30).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image2.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image2.Picture And Image1(k - 20).Picture = Image2.Picture And _ Image1(k - 30).Picture = Image3.Picture Then Image1(k - 20).Picture = Image3.Picture Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture Image1(k + 40).Picture = Image3.Picture Image1(k + 50).Picture = Image3.Picture End If End If If k > 20 And k < 31 Then If Image1(k + 70).Picture = Image3.Picture And Image1(k + 60).Picture = Image2.Picture And _ Image1(k + 50).Picture = Image2.Picture And Image1(k + 40).Picture = Image2.Picture And _ Image1(k + 30).Picture = Image2.Picture And Image1(k + 20).Picture = Image2.Picture And _ Image1(k + 10).Picture = Image2.Picture And Image1(k - 10).Picture = Image2.Picture And _ Image1(k - 20).Picture = Image3.Picture Then Image1(k - 10).Picture = Image3.Picture Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture Image1(k + 40).Picture = Image3.Picture Image1(k + 50).Picture = Image3.Picture Image1(k + 60).Picture = Image3.Picture End If End If If k > 10 And k < 21 Then If Image1(k + 80).Picture = Image3.Picture And Image1(k + 70).Picture = Image2.Picture And _ Image1(k + 60).Picture = Image2.Picture And Image1(k + 50).Picture = Image2.Picture And _ Image1(k + 40).Picture = Image2.Picture And Image1(k + 30).Picture = Image2.Picture And _ Image1(k + 20).Picture = Image2.Picture And Image1(k + 10).Picture = Image2.Picture And _ Image1(k - 10).Picture = Image3.Picture Then Image1(k).Picture = Image3.Picture Image1(k + 10).Picture = Image3.Picture Image1(k + 20).Picture = Image3.Picture Image1(k + 30).Picture = Image3.Picture Image1(k + 40).Picture = Image3.Picture Image1(k + 50).Picture = Image3.Picture Image1(k + 60).Picture = Image3.Picture Image1(k + 70).Picture = Image3.Picture End If End If End If Next k End Function Private Function HTrapBlack() Dim i As Integer 'Changes from white to black in horizontal traps For i = 1 To 100 If Image1(i).Picture = Image3.Picture Then 'Horizontally un-trapable dots If i <> 1 And i <> 11 And i <> 21 And i <> 31 And i <> 41 And i <> 51 And i <> 61 And i <> 71 _ And i <> 81 And i <> 91 And i <> 10 And i <> 20 And i <> 30 And i <> 40 And i <> 50 And i <> 60 _ And i <> 70 And i <> 80 And i <> 90 And i <> 100 Then 'Change 1 dot from white to black If Image1(i + 1).Picture = Image2.Picture And Image1(i - 1).Picture = Image2.Picture Then Image1(i).Picture = Image2.Picture End If 'Change 2 dots from white to black If i > 1 And i < 9 Or i > 11 And i < 19 Or i > 21 And i < 29 Or i > 31 And i < 39 Or i > 41 And i < 49 Or i > 51 And i < 59 Or _ i > 61 And i < 69 Or i > 71 And i < 79 Or i > 81 And i < 89 Or i > 91 And i < 99 Then If Image1(i - 1).Picture = Image2.Picture And Image1(i + 1).Picture = Image3.Picture And Image1(i + 2).Picture = Image2.Picture Then Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture End If End If If i > 2 And i < 10 Or i > 12 And i < 20 Or i > 22 And i < 30 Or i > 32 And i < 40 Or i > 42 And i < 50 _ Or i > 52 And i < 60 Or i > 62 And i < 70 Or i > 72 And i < 80 Or i > 82 And i < 90 Or i > 92 And i < 100 Then If Image1(i - 2).Picture = Image2.Picture And Image1(i - 1).Picture = Image3.Picture And Image1(i + 1).Picture = Image2.Picture Then Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture End If End If 'Change 3 dots from white to black If i > 3 And i < 10 Or i > 13 And i < 20 Or i > 23 And i < 30 Or i > 33 And i < 40 Or i > 43 And i < 50 _ Or i > 53 And i < 60 Or i > 63 And i < 70 Or i > 73 And i < 79 Or i > 83 And i < 90 Or i > 93 And i < 100 Then If Image1(i - 3).Picture = Image2.Picture And Image1(i - 2).Picture = Image3.Picture And _ Image1(i - 1).Picture = Image3.Picture And Image1(i + 1).Picture = Image2.Picture Then Image1(i - 2).Picture = Image2.Picture Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture End If End If If i > 2 And i < 9 Or i > 12 And i < 19 Or i > 22 And i < 29 Or i > 32 And i < 39 Or i > 42 And i < 49 _ Or i > 52 And i < 59 Or i > 62 And i < 69 Or i > 72 And i < 79 Or i > 82 And i < 89 Or i > 92 And i < 99 Then If Image1(i - 2).Picture = Image2.Picture And Image1(i - 1).Picture = Image3.Picture And _ Image1(i + 1).Picture = Image3.Picture And Image1(i + 2).Picture = Image2.Picture Then Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture End If End If If i > 1 And i < 8 Or i > 11 And i < 18 Or i > 21 And i < 28 Or i > 31 And i < 38 Or i > 41 And i < 48 _ Or i > 51 And i < 58 Or i > 61 And i < 68 Or i > 71 And i < 78 Or i > 81 And i < 88 Or i > 91 And i < 98 Then If Image1(i - 1).Picture = Image2.Picture And Image1(i + 1).Picture = Image3.Picture And _ Image1(i + 2).Picture = Image3.Picture And Image1(i + 3).Picture = Image2.Picture Then Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture Image1(i + 2).Picture = Image2.Picture End If End If 'Change 4 dots from white to black If i > 4 And i < 10 Or i > 14 And i < 20 Or i > 24 And i < 30 Or i > 34 And i < 40 Or i > 44 And i < 50 _ Or i > 54 And i < 60 Or i > 64 And i < 70 Or i > 74 And i < 80 Or i > 84 And i < 90 Or i > 94 And i < 100 Then If Image1(i - 4).Picture = Image2.Picture And Image1(i - 3).Picture = Image3.Picture And _ Image1(i - 2).Picture = Image3.Picture And Image1(i - 1).Picture = Image3.Picture And _ Image1(i + 1).Picture = Image2.Picture Then Image1(i - 3).Picture = Image2.Picture Image1(i - 2).Picture = Image2.Picture Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture End If End If If i > 3 And i < 9 Or i > 13 And i < 29 Or i > 23 And i < 39 Or i > 33 And i < 49 Or i > 43 And i < 59 _ Or i > 53 And i < 69 Or i > 63 And i < 79 Or i > 73 And i < 79 Or i > 83 And i < 89 Or i > 93 And i < 99 Then If Image1(i - 3).Picture = Image2.Picture And Image1(i - 2).Picture = Image3.Picture And _ Image1(i - 1).Picture = Image3.Picture And Image1(i + 1).Picture = Image3.Picture And _ Image1(i + 2).Picture = Image2.Picture Then Image1(i - 2).Picture = Image2.Picture Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture End If End If If i > 2 And i < 8 Or i > 12 And i < 28 Or i > 22 And i < 38 Or i > 32 And i < 48 Or i > 42 And i < 58 _ Or i > 52 And i < 68 Or i > 62 And i < 78 Or i > 72 And i < 78 Or i > 82 And i < 88 Or i > 92 And i < 98 Then If Image1(i - 2).Picture = Image2.Picture And Image1(i - 1).Picture = Image3.Picture And _ Image1(i + 1).Picture = Image3.Picture And Image1(i + 2).Picture = Image3.Picture And _ Image1(i + 3).Picture = Image2.Picture Then Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture Image1(i + 2).Picture = Image2.Picture End If End If If i > 1 And i < 7 Or i > 11 And i < 17 Or i > 21 And i < 27 Or i > 31 And i < 37 Or i > 41 And i < 47 _ Or i > 51 And i < 57 Or i > 61 And i < 67 Or i > 71 And i < 77 Or i > 81 And i < 87 Or i > 91 And i < 97 Then If Image1(i - 1).Picture = Image2.Picture And Image1(i + 1).Picture = Image3.Picture And _ Image1(i + 2).Picture = Image3.Picture And Image1(i + 3).Picture = Image3.Picture And _ Image1(i + 4).Picture = Image2.Picture Then Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture Image1(i + 2).Picture = Image2.Picture Image1(i + 3).Picture = Image2.Picture End If End If 'Change 5 dots from white to black If i > 5 And i < 10 Or i > 15 And i < 20 Or i > 25 And i < 30 Or i > 35 And i < 40 Or i > 45 And i < 50 _ Or i > 55 And i < 60 Or i > 65 And i < 70 Or i > 75 And i < 80 Or i > 85 And i < 90 Or i > 95 And i < 100 Then If Image1(i - 5).Picture = Image2.Picture And Image1(i - 4).Picture = Image3.Picture And _ Image1(i - 3).Picture = Image3.Picture And Image1(i - 2).Picture = Image3.Picture And _ Image1(i - 1).Picture = Image3.Picture And Image1(i + 1).Picture = Image2.Picture Then Image1(i - 4).Picture = Image2.Picture Image1(i - 3).Picture = Image2.Picture Image1(i - 2).Picture = Image2.Picture Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture End If End If If i > 4 And i < 9 Or i > 14 And i < 19 Or i > 24 And i < 29 Or i > 34 And i < 39 Or i > 44 And i < 49 _ Or i > 54 And i < 59 Or i > 64 And i < 69 Or i > 74 And i < 79 Or i > 84 And i < 89 Or i > 94 And i < 99 Then If Image1(i - 4).Picture = Image2.Picture And Image1(i - 3).Picture = Image3.Picture And _ Image1(i - 2).Picture = Image3.Picture And Image1(i - 1).Picture = Image3.Picture And _ Image1(i + 1).Picture = Image3.Picture And Image1(i + 2).Picture = Image2.Picture Then Image1(i - 3).Picture = Image2.Picture Image1(i - 2).Picture = Image2.Picture Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture End If End If If i > 3 And i < 8 Or i > 13 And i < 18 Or i > 23 And i < 30 Or i > 33 And i < 40 Or i > 43 And i < 48 _ Or i > 53 And i < 58 Or i > 63 And i < 68 Or i > 73 And i < 78 Or i > 83 And i < 88 Or i > 93 And i < 98 Then If Image1(i - 3).Picture = Image2.Picture And Image1(i - 2).Picture = Image3.Picture And _ Image1(i - 1).Picture = Image3.Picture And Image1(i + 1).Picture = Image3.Picture And _ Image1(i + 2).Picture = Image3.Picture And Image1(i + 3).Picture = Image2.Picture Then Image1(i - 2).Picture = Image2.Picture Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture Image1(i + 2).Picture = Image2.Picture End If End If If i > 2 And i < 7 Or i > 12 And i < 17 Or i > 22 And i < 30 Or i > 32 And i < 40 Or i > 42 And i < 47 _ Or i > 52 And i < 57 Or i > 62 And i < 67 Or i > 72 And i < 77 Or i > 82 And i < 87 Or i > 92 And i < 97 Then If Image1(i - 2).Picture = Image2.Picture And Image1(i - 1).Picture = Image3.Picture And _ Image1(i + 1).Picture = Image3.Picture And Image1(i + 2).Picture = Image3.Picture And _ Image1(i + 3).Picture = Image3.Picture And Image1(i + 4).Picture = Image2.Picture Then Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture Image1(i + 2).Picture = Image2.Picture Image1(i + 3).Picture = Image2.Picture End If End If If i > 1 And i < 6 Or i > 11 And i < 16 Or i > 21 And i < 30 Or i > 31 And i < 40 Or i > 41 And i < 46 _ Or i > 51 And i < 56 Or i > 61 And i < 66 Or i > 71 And i < 76 Or i > 81 And i < 86 Or i > 91 And i < 96 Then If Image1(i - 1).Picture = Image2.Picture And Image1(i + 1).Picture = Image3.Picture And _ Image1(i + 2).Picture = Image3.Picture And Image1(i + 3).Picture = Image3.Picture And _ Image1(i + 4).Picture = Image3.Picture And Image1(i + 5).Picture = Image2.Picture Then Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture Image1(i + 2).Picture = Image2.Picture Image1(i + 3).Picture = Image2.Picture Image1(i + 4).Picture = Image2.Picture End If End If 'Change 6 dots from white to black If i > 6 And i < 10 Or i > 16 And i < 20 Or i > 26 And i < 30 Or i > 36 And i < 40 Or i > 46 And i < 50 _ Or i > 56 And i < 60 Or i > 66 And i < 70 Or i > 76 And i < 80 Or i > 86 And i < 90 Or i > 96 And i < 100 Then If Image1(i - 6).Picture = Image2.Picture And Image1(i - 5).Picture = Image3.Picture And _ Image1(i - 4).Picture = Image3.Picture And Image1(i - 3).Picture = Image3.Picture And _ Image1(i - 2).Picture = Image3.Picture And Image1(i - 1).Picture = Image3.Picture And _ Image1(i + 1).Picture = Image2.Picture Then Image1(i - 5).Picture = Image2.Picture Image1(i - 4).Picture = Image2.Picture Image1(i - 3).Picture = Image2.Picture Image1(i - 2).Picture = Image2.Picture Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture End If End If If i > 5 And i < 9 Or i > 15 And i < 19 Or i > 25 And i < 29 Or i > 35 And i < 39 Or i > 45 And i < 49 _ Or i > 55 And i < 59 Or i > 65 And i < 69 Or i > 75 And i < 79 Or i > 85 And i < 89 Or i > 95 And i < 99 Then If Image1(i - 5).Picture = Image2.Picture And Image1(i - 4).Picture = Image3.Picture And _ Image1(i - 3).Picture = Image3.Picture And Image1(i - 2).Picture = Image3.Picture And _ Image1(i - 1).Picture = Image3.Picture And Image1(i + 1).Picture = Image3.Picture And _ Image1(i + 2).Picture = Image2.Picture Then Image1(i - 4).Picture = Image2.Picture Image1(i - 3).Picture = Image2.Picture Image1(i - 2).Picture = Image2.Picture Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture End If End If If i > 4 And i < 8 Or i > 14 And i < 18 Or i > 24 And i < 28 Or i > 34 And i < 38 Or i > 44 And i < 48 _ Or i > 54 And i < 58 Or i > 64 And i < 68 Or i > 74 And i < 78 Or i > 84 And i < 88 Or i > 94 And i < 98 Then If Image1(i - 4).Picture = Image2.Picture And Image1(i - 3).Picture = Image3.Picture And _ Image1(i - 2).Picture = Image3.Picture And Image1(i - 1).Picture = Image3.Picture And _ Image1(i + 1).Picture = Image3.Picture And Image1(i + 2).Picture = Image3.Picture And _ Image1(i + 3).Picture = Image2.Picture Then Image1(i - 3).Picture = Image2.Picture Image1(i - 2).Picture = Image2.Picture Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture Image1(i + 2).Picture = Image2.Picture End If End If If i > 3 And i < 7 Or i > 13 And i < 17 Or i > 23 And i < 27 Or i > 33 And i < 37 Or i > 43 And i < 47 _ Or i > 53 And i < 57 Or i > 63 And i < 67 Or i > 73 And i < 77 Or i > 83 And i < 87 Or i > 93 And i < 97 Then If Image1(i - 3).Picture = Image2.Picture And Image1(i - 2).Picture = Image3.Picture And _ Image1(i - 1).Picture = Image3.Picture And Image1(i + 1).Picture = Image3.Picture And _ Image1(i + 2).Picture = Image3.Picture And Image1(i + 3).Picture = Image3.Picture And _ Image1(i + 4).Picture = Image2.Picture Then Image1(i - 2).Picture = Image2.Picture Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture Image1(i + 2).Picture = Image2.Picture Image1(i + 3).Picture = Image2.Picture End If End If If i > 2 And i < 6 Or i > 12 And i < 16 Or i > 22 And i < 26 Or i > 32 And i < 36 Or i > 42 And i < 46 _ Or i > 52 And i < 56 Or i > 62 And i < 66 Or i > 72 And i < 76 Or i > 82 And i < 86 Or i > 92 And i < 96 Then If Image1(i - 2).Picture = Image2.Picture And Image1(i - 1).Picture = Image3.Picture And _ Image1(i + 1).Picture = Image3.Picture And Image1(i + 2).Picture = Image3.Picture And _ Image1(i + 3).Picture = Image3.Picture And Image1(i + 4).Picture = Image3.Picture And _ Image1(i + 5).Picture = Image2.Picture Then Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture Image1(i + 2).Picture = Image2.Picture Image1(i + 3).Picture = Image2.Picture Image1(i + 4).Picture = Image2.Picture End If End If If i > 1 And i < 5 Or i > 11 And i < 15 Or i > 21 And i < 25 Or i > 31 And i < 35 Or i > 41 And i < 45 _ Or i > 51 And i < 55 Or i > 61 And i < 65 Or i > 71 And i < 75 Or i > 81 And i < 85 Or i > 91 And i < 95 Then If Image1(i - 1).Picture = Image2.Picture And Image1(i + 1).Picture = Image3.Picture And _ Image1(i + 2).Picture = Image3.Picture And Image1(i + 3).Picture = Image3.Picture And _ Image1(i + 4).Picture = Image3.Picture And Image1(i + 5).Picture = Image3.Picture And _ Image1(i + 6).Picture = Image2.Picture Then Image1(i).Picture = Image2.Picture Image1(i + 1).Picture = Image2.Picture Image1(i + 2).Picture = Image2.Picture Image1(i + 3).Picture = Image2.Picture Image1(i + 4).Picture = Image2.Picture Image1(i + 5).Picture = Image2.Picture End If End If 'Change 7 dots from white to black If i > 7 And i < 10 Or i > 17 And i < 20 Or i > 27 And i < 30 Or i > 37 And i < 40 Or i > 47 And i < 50 _ Or i > 57 And i < 60 Or i > 67 And i < 70 Or i > 77 And i < 80 Or i > 87 And i < 90 Or i > 97 And i < 100 Then If Image1(i - 7).Picture = Image2.Picture And Image1(i - 6).Picture = Image2.Picture And _ Image1(i - 5).Picture = Image3.Picture And Image1(i - 4).Picture = Image3.Picture And _ Image1(i - 3).Picture = Image3.Picture And Image1(i - 2).Picture = Image3.Picture And _ Image1(i - 1).Picture = Image3.Picture And Image1(i + 1).Picture = Image2.Picture Then Image1(i - 6).Picture = Image2.Picture Image1(i - 5).Picture = Image2.Picture Image1(i - 4).Picture = Image2.Picture Image1(i - 3).Picture = Image2.Picture Image1(i - 2).Picture = Image2.Picture Image1(i - 1).Picture = Image2.Picture Image1(i).Picture = Image2.Picture End If End If End If End If Next i End Function Private Function DRTrapBlack() Dim j As Integer 'This code changes from white to black going from top left to bottom right For j = 0 To 100 If j <> 1 And j <> 10 And j <> 11 And j <> 20 And j <> 21 And j <> 30 And j <> 31 And j <> 40 _ And j <> 41 And j <> 50 And j <> 51 And j <> 60 And j <> 61 And j <> 70 And j <> 71 _ And j <> 80 And j <> 81 And j <> 90 And j <> 91 And j <> 100 And j <> 2 And j <> 3 And j <> 4 _ And j <> 5 And j <> 6 And j <> 7 And j <> 8 And j <> 9 And j <> 92 And j <> 93 And j <> 94 And j <> 95 _ And j <> 96 And j <> 97 And j <> 98 And j <> 99 Then If Image1(j).Picture = Image3.Picture Then If Image1(j + 11).Picture = Image2.Picture And Image1(j - 11).Picture = Image2.Picture Then Image1(j).Picture = Image2.Picture End If End If End If Next j End Function Private Function DLTrapBlack() Dim m As Integer 'This code changes from white to black going from top right to bottom left For m = 0 To 100 If m <> 1 And m <> 10 And m <> 11 And m <> 20 And m <> 21 And m <> 30 And m <> 31 And m <> 40 _ And m <> 41 And m <> 50 And m <> 51 And m <> 60 And m <> 61 And m <> 70 And m <> 71 _ And m <> 80 And m <> 81 And m <> 90 And m <> 91 And m <> 100 And m <> 2 And m <> 3 And m <> 4 _ And m <> 5 And m <> 6 And m <> 7 And m <> 8 And m <> 9 And m <> 92 And m <> 93 And m <> 94 And m <> 95 _ And m <> 96 And m <> 97 And m <> 98 And m <> 99 Then If Image1(m).Picture = Image3.Picture Then If Image1(m + 9).Picture = Image2.Picture And Image1(m - 9).Picture = Image2.Picture Then Image1(m).Picture = Image2.Picture End If End If End If Next m End Function