Dim a(6) As Integer Dim b(6) As Integer Dim c(6) As Integer Dim d(6) As Integer Dim e(6) As Integer Private Type POINTAPI x As Long y As Long End Type Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Private Sub Command1_Click() CommonDialog1.ShowOpen Picture1.Picture = LoadPicture(CommonDialog1.filename) End Sub Private Sub Command2_Click() Dim i As Double Dim j As Double, count As Integer Dim i1 As Double, i2 As Double, i3 As Double, i4 As Double, i5 As Double, i6 As Double, i7 As Double, i8 As Double, i9 As Double, i10 As Double Dim j1 As Double, j2 As Double, j3 As Double, j4 As Double, j5 As Double, j6 As Double, j7 As Double, j8 As Double, j9 As Double, j10 As Double ScaleMode = 3 Picture1.Line (1371, 0)-(1371, 5415), RGB(255, 3, 0) Picture1.Line (2742, 0)-(2742, 5415), RGB(255, 4, 0) Picture1.Line (4113, 0)-(4113, 5415), RGB(255, 4, 0) Picture1.Line (5484, 0)-(5484, 5415), RGB(255, 4, 0) Picture1.Line (0, 1083)-(6855, 1083), RGB(255, 4, 0) Picture1.Line (0, 2166)-(6855, 2166), RGB(255, 4, 0) Picture1.Line (0, 3249)-(6855, 3249), RGB(255, 4, 0) Picture1.Line (0, 4332)-(6855, 4332), RGB(255, 4, 0) count = 0 For i1 = 0 To 95 Step 9.5 For j1 = 0 To 82.2 Step 8.22 ret = GetPixel(Picture1.hdc, i1, j1) If ret = vbBlack Then count = count + 1 If count > 0 Then a(0) = 1 Else: a(0) = 0 End If End If Next j1 Next i1 count = 0 For i2 = 95 To 190 Step 9.5 For j2 = 0 To 82.2 Step 8.22 ret = GetPixel(Picture1.hdc, i2, j2) If ret = vbBlack Then count = count + 1 If count > 0 Then a(1) = 1 Else: a(1) = 0 End If End If Next j2 Next i2 count = 0 For i3 = 190 To 285 Step 9.5 For j3 = 0 To 82.2 Step 8.22 ret = GetPixel(Picture1.hdc, i3, j3) If ret = vbBlack Then count = count + 1 If count > 0 Then a(2) = 1 Else: a(2) = 0 End If End If Next j3 Next i3 count = 0 For i4 = 285 To 380 Step 9.5 For j4 = 0 To 82.2 Step 8.22 ret = GetPixel(Picture1.hdc, i4, j4) If ret = vbBlack Then count = count + 1 If count > 0 Then a(3) = 1 Else: a(3) = 0 End If End If Next j4 Next i4 count = 0 For i5 = 380 To 475 Step 9.5 For j5 = 0 To 82.2 Step 8.22 ret = GetPixel(Picture1.hdc, i5, j5) If ret = vbBlack Then count = count + 1 If count > 0 Then a(4) = 1 Else: a(4) = 0 End If End If Next j5 Next i5 count = 0 For i6 = 0 To 95 Step 9.5 For j6 = 82.2 To 164.4 Step 8.22 ret = GetPixel(Picture1.hdc, i6, j6) If ret = vbBlack Then count = count + 1 If count > 0 Then b(0) = 1 Else: b(0) = 0 End If End If Next j6 Next i6 count = 0 For i7 = 95 To 180 Step 9.5 For j7 = 82.2 To 164.4 Step 8.22 ret = GetPixel(Picture1.hdc, i7, j7) If ret = vbBlack Then count = count + 1 If count > 0 Then b(1) = 1 Else: b(1) = 0 End If End If Next j7 Next i7 count = 0 For i8 = 190 To 285 Step 9.5 For j8 = 82.2 To 164.4 Step 8.22 ret = GetPixel(Picture1.hdc, i8, j8) If ret = vbBlack Then count = count + 1 If count > 0 Then b(2) = 1 Else: b(2) = 0 End If End If Next j8 Next i8 count = 0 For i9 = 285 To 380 Step 9.5 For j9 = 82.2 To 164.4 Step 8.22 ret = GetPixel(Picture1.hdc, i9, j9) If ret = vbBlack Then count = count + 1 If count > 0 Then b(3) = 1 Else: b(3) = 0 End If End If Next j9 Next i9 count = 0 For i10 = 380 To 475 Step 9.5 For j10 = 82.2 To 164.4 Step 8.22 ret = GetPixel(Picture1.hdc, i10, j10) If ret = vbBlack Then count = count + 1 If count > 0 Then b(4) = 1 Else: b(4) = 0 End If End If Next j10 Next i10 count = 0 For i11 = 0 To 95 Step 9.5 For j11 = 164.4 To 246.6 Step 8.22 ret = GetPixel(Picture1.hdc, i11, j11) If ret = vbBlack Then count = count + 1 If count > 0 Then c(0) = 1 Else: c(0) = 0 End If End If Next j11 Next i11 count = 0 For i12 = 95 To 190 Step 9.5 For j12 = 164.4 To 246.6 Step 8.22 ret = GetPixel(Picture1.hdc, i12, j12) If ret = vbBlack Then count = count + 1 If count > 0 Then c(1) = 1 Else: c(1) = 0 End If End If Next j12 Next i12 count = 0 For i13 = 190 To 285 Step 9.5 For j13 = 164.4 To 246.6 Step 8.22 ret = GetPixel(Picture1.hdc, i13, j13) If ret = vbBlack Then count = count + 1 If count > 0 Then c(2) = 1 Else: c(2) = 0 End If End If Next j13 Next i13 count = 0 For i14 = 285 To 380 Step 9.5 For j14 = 164.4 To 246.6 Step 8.22 ret = GetPixel(Picture1.hdc, i14, j14) If ret = vbBlack Then count = count + 1 If count > 0 Then c(3) = 1 Else: c(3) = 0 End If End If Next j14 Next i14 count = 0 For i15 = 380 To 475 Step 9.5 For j15 = 164.4 To 246.6 Step 8.22 ret = GetPixel(Picture1.hdc, i15, j15) If ret = vbBlack Then count = count + 1 If count > 0 Then c(4) = 1 Else: c(4) = 0 End If End If Next j15 Next i15 count = 0 For i16 = 0 To 95 Step 9.5 For j16 = 246.6 To 328.8 Step 8.22 ret = GetPixel(Picture1.hdc, i16, j16) If ret = vbBlack Then count = count + 1 If count > 0 Then d(0) = 1 Else: d(0) = 0 End If End If Next j16 Next i16 count = 0 For i17 = 95 To 190 Step 9.5 For j17 = 246.6 To 328.8 Step 8.22 ret = GetPixel(Picture1.hdc, i17, j17) If ret = vbBlack Then count = count + 1 If count > 0 Then d(1) = 1 Else: d(1) = 0 End If End If Next j17 Next i17 count = 0 For i18 = 190 To 285 Step 9.5 For j18 = 246.6 To 328.8 Step 8.22 ret = GetPixel(Picture1.hdc, i18, j18) If ret = vbBlack Then count = count + 1 If count > 0 Then d(2) = 1 Else: d(2) = 0 End If End If Next j18 Next i18 count = 0 For i19 = 285 To 380 Step 9.5 For j19 = 246.6 To 328.8 Step 8.22 ret = GetPixel(Picture1.hdc, i19, j19) If ret = vbBlack Then count = count + 1 If count > 0 Then d(3) = 1 Else: d(3) = 0 End If End If Next j19 Next i19 count = 0 For i20 = 380 To 475 Step 9.5 For j20 = 246.6 To 328.8 Step 8.22 ret = GetPixel(Picture1.hdc, i20, j20) If ret = vbBlack Then count = count + 1 If count > 0 Then d(4) = 1 Else: d(4) = 0 End If End If Next j20 Next i20 count = 0 For i21 = 0 To 95 Step 9.5 For j21 = 328.8 To 411 Step 8.22 ret = GetPixel(Picture1.hdc, i21, j21) If ret = vbBlack Then count = count + 1 If count > 0 Then e(0) = 1 Else: e(0) = 0 End If End If Next j21 Next i21 count = 0 For i22 = 95 To 190 Step 9.5 For j22 = 328.8 To 411 Step 8.22 ret = GetPixel(Picture1.hdc, i22, j22) If ret = vbBlack Then count = count + 1 If count > 0 Then e(1) = 1 Else: e(1) = 0 End If End If Next j22 Next i22 count = 0 For i23 = 190 To 285 Step 9.5 For j23 = 328.8 To 411 Step 8.22 ret = GetPixel(Picture1.hdc, i23, j23) If ret = vbBlack Then count = count + 1 If count > 0 Then e(2) = 1 Else: e(2) = 0 End If End If Next j23 Next i23 count = 0 For i24 = 285 To 380 Step 9.5 For j24 = 328.8 To 411 Step 8.22 ret = GetPixel(Picture1.hdc, i24, j24) If ret = vbBlack Then count = count + 1 If count > 0 Then e(3) = 1 Else: e(3) = 0 End If End If Next j24 Next i24 count = 0 For i25 = 380 To 475 Step 9.5 For j25 = 328.8 To 411 Step 8.22 ret = GetPixel(Picture1.hdc, i25, j25) If ret = vbBlack Then count = count + 1 If count > 0 Then e(4) = 1 Else: e(4) = 0 End If End If Next j25 Next i25 If a(0) = 0 Then If a(1) = 0 Then If a(2) = 1 Then If a(3) = 1 Then If a(4) = 1 Then If b(0) = 0 Then If b(1) = 0 Then If b(2) = 1 Then If b(3) = 0 Then If b(4) = 1 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 1 Then If c(4) = 1 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 0 Then If d(3) = 0 Then If d(4) = 1 Then If e(0) = 1 Then If e(1) = 1 Then If e(2) = 0 Then If e(3) = 0 Then If e(4) = 1 Then Text1.Text = "A" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 1 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "B" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 0 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 0 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 1 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 0 Then If e(2) = 0 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "C" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 1 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 0 Then If b(3) = 1 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 0 Then If c(3) = 1 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 1 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "D" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 1 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 0 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 0 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 0 Then If e(3) = 1 Then If e(4) = 0 Then Text1.Text = "E" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 1 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 0 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 0 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 0 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "F" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 0 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 1 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 0 Then If d(3) = 1 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 1 Then If e(3) = 1 Then If e(4) = 0 Then Text1.Text = "G" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 0 Then If a(3) = 1 Then If a(4) = 0 Then If b(0) = 1 Then If b(1) = 1 Then If b(2) = 0 Then If b(3) = 1 Then If b(4) = 0 Then If c(0) = 1 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 1 Then If c(4) = 0 Then If d(0) = 1 Then If d(1) = 1 Then If d(2) = 0 Then If d(3) = 1 Then If d(4) = 0 Then If e(0) = 1 Then If e(1) = 1 Then If e(2) = 0 Then If e(3) = 1 Then If e(4) = 0 Then Text1.Text = "H" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 0 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 0 Then If b(2) = 1 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 0 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 0 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 0 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "I" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 0 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 0 Then If b(2) = 1 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 0 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "J" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 1 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 0 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "K" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 0 Then If a(2) = 0 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 0 Then If b(2) = 0 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 0 Then If c(2) = 0 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 0 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "L" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 1 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 1 Then If b(1) = 1 Then If b(2) = 1 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 1 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 1 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 0 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "M" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 1 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 0 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "N" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 0 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 1 Then If b(3) = 1 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 0 Then If c(3) = 1 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 1 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 0 Then If e(2) = 0 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "O" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 1 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 0 Then If b(3) = 1 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 1 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 0 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 0 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "P" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 1 Then If b(1) = 1 Then If b(2) = 1 Then If b(3) = 1 Then If b(4) = 0 Then If c(0) = 1 Then If c(1) = 1 Then If c(2) = 0 Then If c(3) = 1 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 1 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 0 Then If e(2) = 0 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "Q" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 0 Then If b(2) = 1 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 0 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "R" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 0 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 1 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 1 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "S" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 1 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 0 Then If b(2) = 1 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 0 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 0 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 0 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "T" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 0 Then If a(2) = 0 Then If a(3) = 1 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 0 Then If b(3) = 1 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 0 Then If c(3) = 1 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 1 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "U" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 1 Then If a(1) = 0 Then If a(2) = 0 Then If a(3) = 1 Then If a(4) = 0 Then If b(0) = 1 Then If b(1) = 1 Then If b(2) = 1 Then If b(3) = 1 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "V" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 1 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 1 Then If a(4) = 0 Then If b(0) = 1 Then If b(1) = 1 Then If b(2) = 1 Then If b(3) = 1 Then If b(4) = 0 Then If c(0) = 1 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 1 Then If c(4) = 0 Then If d(0) = 1 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 1 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "W" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 0 Then If a(3) = 1 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 1 Then If b(3) = 1 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 1 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 1 Then If d(4) = 0 Then If e(0) = 1 Then If e(1) = 0 Then If e(2) = 0 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "X" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 0 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 1 Then If b(2) = 1 Then If b(3) = 0 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 1 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 0 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 0 Then If e(3) = 0 Then If e(4) = 0 Then Text1.Text = "Y" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If If a(0) = 0 Then If a(1) = 1 Then If a(2) = 1 Then If a(3) = 1 Then If a(4) = 0 Then If b(0) = 0 Then If b(1) = 0 Then If b(2) = 1 Then If b(3) = 1 Then If b(4) = 0 Then If c(0) = 0 Then If c(1) = 0 Then If c(2) = 1 Then If c(3) = 0 Then If c(4) = 0 Then If d(0) = 0 Then If d(1) = 1 Then If d(2) = 1 Then If d(3) = 0 Then If d(4) = 0 Then If e(0) = 0 Then If e(1) = 1 Then If e(2) = 1 Then If e(3) = 1 Then If e(4) = 0 Then Text1.Text = "Z" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End Sub