Private Function GetPixelAtPoint(ByVal Ctrl As System.Windows.Forms.Control, ByVal Location As System.Drawing.Point) As System.Drawing.Color
'On définis nouvelle image vide à la taille du contrôle
Dim TmpImg As New System.Drawing.Bitmap(Ctrl.ClientSize.Width, Ctrl.ClientSize.Height)
' On récupère l'image du controle
Ctrl.DrawToBitmap(TmpImg, Ctrl.ClientRectangle)
'Puis on récupère (et on retourne) la couleur du pixel a la position 'Location'
Return TmpImg.GetPixel(Location.X, Location.Y)
End Function