Die Farbe eines Pixels in einer Windows Form abfragen

1
2
3
4
5
6

Private Function GetPixelAtPoint(ByVal Ctrl As System.Windows.Forms.Control, ByVal Location As System.Drawing.Point) As Color
  Dim TmpImg As New Bitmap(Ctrl.ClientSize.Width, Ctrl.ClientSize.Height)
  Ctrl.DrawToBitmap(TmpImg, Ctrl.ClientRectangle)
  Return TmpImg.GetPixel(Location.X, Location.Y)
End Function