Public Function IsEqual(col1 As Color, _
                                  col2 As Color) As Boolean
        If col1.R <> col2.R Then Return False
        If col1.G <> col2.G Then Return False
        If col1.B <> col2.B Then Return False
        Return True
   End Function
 
 
   Public Function RemoveOutRegion(ByVal bmp As Bitmap, _
                          ByVal OutRegionColor As Color) As Bitmap
 
      Dim topleft As New Point(0, 0)
      Dim bottomright As New Point(bmp.Width - 1, bmp.Height - 1)
 
      Dim found As Boolean = False
      Dim i, k As Integer
      k = -1
      Do
         k += 1
         If k = bmp.Width Then
            k = 0 : i += 1
            If i = bmp.Height Then Return Nothing
         End If
 
         found = Not IsEqual(bmp.GetPixel(k, i), OutRegionColor)
     Loop Until found
     If Not found Then Return Nothing
     topleft = New Point(k, i)
 
     found = False
     k = bmp.Width : i = bmp.Height - 1
     Do
        k -= 1
        If k = -1 Then
           k = bmp.Width - 1 : i -= 1
           If i = -1 Then Return Nothing
        End If
        found = Not IsEqual(bmp.GetPixel(k, i), OutRegionColor)
     Loop Until found
 
     bottomright = New Point(k, i)
 
     Dim rect_source As New Rectangle _
        (topleft, New Size(bottomright.X - topleft.X, bottomright.Y - _
        topleft.Y))
 
     If rect_source.Width < 2 OrElse _        
        rect_source.Height < 2 Then Return Nothing
 
     Dim rect_dest As New Rectangle(New Point(0, 0), rect_source.Size)
     Dim bmp_center As New Bitmap(rect_source.Width, rect_source.Height)
 
     Using g As Graphics = Graphics.FromImage(bmp_center)
        g.DrawImage(bmp, rect_dest, rect_source, GraphicsUnit.Pixel)
     End Using
 
     Return bmp_center
 
  End Function