Declare Function GetPixel Lib "gdi32" ( _ ByVal hdc As Long, _ ByVal nXPos As Long, _ ByVal nYPos As Long) As Long
GetPixel возвращает значение RGB пикселя в заданных координатах в контексте устройства
В случае ошибки функция возвращает &HFFFF. В успешном случае функция возвращает значение RGB пикселя в заданной точке.
' Определяем значение цвета точки ' с координатами (75,100) Dim rgbVal As Long ' значение RGB точки ' Определяем цвет на форме в точке (75,100) rgbVal = GetPixel(Form1.hDC, 75, 100) Debug.Print "Значение RGB точки" & rgbVal