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