كود معرفة اللون الذي يمر عليه المؤشر

ضع هذا الكود في الفورم

Option Explicit

Private Type POINTAPI

x As Long

y As Long

End Type

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()

Timer1.Interval = 100

End Sub

Private Sub Timer1_Timer()

Dim tPOS As POINTAPI

Dim sTmp As String

Dim lColor As Long

Dim lDC As Long

lDC = GetWindowDC(0)

Call GetCursorPos(tPOS)

lColor = GetPixel(lDC, tPOS.x, tPOS.y)

Label1.BackColor = lColor

sTmp = Right$("000000" & Hex(lColor), 6)

Caption = "R:" & Right$(sTmp, 2) & " G:" & Mid$(sTmp, 3, 2) & " B:" & Left$(sTmp, 2)

End Sub