Public Function ComputationArea(ByVal img As Image) As PicArea
        Dim fArea As New PicArea
        Dim x1, x2, x3, x4, y1, y2, y3, y4 As Integer
        Dim red, green, blue As Integer
        Dim ColorCenter As Integer
        Dim bmp As New Bitmap(img)
        Dim c As System.Drawing.Color
        c = bmp.GetPixel(4, 4)
        Dim i As Integer = (CInt(c.R) + CInt(c.G) + CInt(c.B)) / 3
        If i > 129 Then
            ColorCenter = 150
        Else
            ColorCenter = 150
        End If
        With bmp
            For y As Integer = 8 To .Height - 8
                For x As Integer = 8 To .Width - 8
                    Dim pixel As System.Drawing.Color
                    pixel = .GetPixel(x, y)
                    red = Math.Abs(CInt(pixel.R))
                    green = Math.Abs(CInt(pixel.G))
                    blue = Math.Abs(CInt(pixel.B))
                    If ColorCenter < 150 Then
                        If red > ColorCenter And green > ColorCenter And blue > ColorCenter Then
                            x1 = x
                            y1 = y
                            GoTo goto1
                        End If
                    Else
                        If red < ColorCenter And green < ColorCenter And blue < ColorCenter Then
                            x1 = x
                            y1 = y
                            GoTo goto1
                        End If
                    End If
                Next
            Next
goto1:
            For x As Integer = 8 To .Width - 8
                For y As Integer = 8 To .Height - 8
                    Dim pixel As System.Drawing.Color
                    pixel = .GetPixel(x, y)
                    red = Math.Abs(CInt(pixel.R))
                    green = Math.Abs(CInt(pixel.G))
                    blue = Math.Abs(CInt(pixel.B))
                    If ColorCenter < 150 Then
                        If red > ColorCenter And green > ColorCenter And blue > ColorCenter Then
                            x2 = x
                            y2 = y
                            GoTo goto2
                        End If
                    Else
                        If red < ColorCenter And green < ColorCenter And blue < ColorCenter Then
                            x2 = x
                            y2 = y
                            GoTo goto2
                        End If
                    End If
                Next
            Next
goto2:
            For y As Integer = .Height - 8 To 8 Step -1
                For x As Integer = .Width - 8 To 8 Step -1
                    Dim pixel As System.Drawing.Color
                    pixel = .GetPixel(x, y)
                    red = Math.Abs(CInt(pixel.R))
                    green = Math.Abs(CInt(pixel.G))
                    blue = Math.Abs(CInt(pixel.B))
                    If ColorCenter < 150 Then
                        If red > ColorCenter And green > ColorCenter And blue > ColorCenter Then
                            x3 = x
                            y3 = y
                            GoTo goto3
                        End If
                    Else
                        If red < ColorCenter And green < ColorCenter And blue < ColorCenter Then
                            x3 = x
                            y3 = y
                            GoTo goto3
                        End If
                    End If
                Next
            Next
goto3:
            For x As Integer = .Width - 8 To 8 Step -1
                For y As Integer = .Height - 8 To 8 Step -1
                    Dim pixel As System.Drawing.Color
                    pixel = .GetPixel(x, y)
                    red = Math.Abs(CInt(pixel.R))
                    green = Math.Abs(CInt(pixel.G))
                    blue = Math.Abs(CInt(pixel.B))
                    If ColorCenter < 150 Then
                        If red > ColorCenter And green > ColorCenter And blue > ColorCenter Then
                            x4 = x
                            y4 = y
                            GoTo goto4
                        End If
                    Else
                        If red < ColorCenter And green < ColorCenter And blue < ColorCenter Then
                            x4 = x
                            y4 = y
                            GoTo goto4
                        End If
                    End If
                Next
            Next
        End With
goto4:
        fArea.x1 = x2
        fArea.y1 = y1
        fArea.x2 = x4
        fArea.y2 = y3
        Return fArea
    End Function