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 Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Timer1_Timer()
Dim p As POINTAPI
Dim d As Long
Dim dd As Long
Dim l As Long
GetCursorPos p
d = GetDesktopWindow()
dd = GetWindowDC(d)
l = GetPixel(dd, p.x, p.y)
Picture1.BackColor = l
End Sub
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Timer1_Timer()
Dim p As POINTAPI
Dim d As Long
Dim dd As Long
Dim l As Long
GetCursorPos p
d = GetDesktopWindow()
dd = GetWindowDC(d)
l = GetPixel(dd, p.x, p.y)
Picture1.BackColor = l
End Sub