Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
 
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, _
    ByVal hDC As Long) As Long
 
Private Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
 
Private Declare Function GetPixel Lib "gdi32.dll" ( _
ByVal hDC As Long, _
ByVal nXPos As Long, _
ByVal nYPos As Long) As Long
 
Private Type POINTAPI
x As Long
y As Long
End Type
 
Dim DC As Long
 
Private Sub Form_Load()
    DC = GetDC(0)
    Timer1.Interval = 200
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    ReleaseDC 0, DC
End Sub
 
Private Sub Timer1_Timer()
    Dim MyMouse As POINTAPI
 
    GetCursorPos MyMouse
    Me.Label1.Caption = MyMouse.x
    Me.Label2.Caption = MyMouse.y
 
    Me.Label3.Caption = GetPixel(DC, MyMouse.x, MyMouse.y)
    Me.Label3.BackColor = Me.Label3.Caption
End Sub