PictureBox2.BackColor =bmp_Background.GetPixel(0, 0)

      For x As Integer = 0 To bmp_Background.Width - 1
        For y As Integer = 150 To bmp_Background.Height - 1
          pix_color.argb_color = bmp_Background.GetPixel(x, y).ToArgb
          sumalpha += pix_color.Alpha
          sumred += pix_color.Red
          sumgreen += pix_color.Green
          sumblue += pix_color.Blue
          k += 1
        Next y
      Next x
      Dim new_color As Color =
      Color.FromArgb(sumalpha / k, sumred / k, sumgreen / k, sumblue / k)
      PictureBox2.BackColor = new_color

GdipExec(GdipCreateBitmapFromFile(StrPtr(the_filename), bmp_Background))

      GdipExec GdipCreateHBITMAPFromBitmap(bmp_Background, hBitmap, 0)
      Set CreateHbmpBackground = CreateIPictureDispFromHBITMAP(hBitmap)

      Dim list As New Dictionary(Of Integer, Integer)
      For x As Integer = 0 To bmp_Background.Width - 1
        For y As Integer = 0 To bmp_Background.Height - 1
          Dim rgb As Integer = bmp_Background.GetPixel(x, y).ToArgb()
          If (rgb > -15000000) And (rgb < -8000000) Then

            Dim added As Boolean = False
            For i As Integer = 0 To 10
              If list.ContainsKey(rgb + i) Then
                list(rgb + i) += 1
                added = True
                Exit For
              End If
              If list.ContainsKey(rgb - i) Then
                list(rgb - i) += 1
                added = True
                Exit For
              End If
            Next i
            If added = False Then list.Add(rgb, 1)
          End If
        Next y
      Next x

      Dim maxV As Integer = 0
      Dim new_color As Color
      For Each element In list
        If element.Value > maxV Then
          maxV = element.Value
          new_color = Color.FromArgb(element.Key)
        End If
      Next
      'MsgBox(new_color.ToArgb)
      Label1.BackColor = new_color