获得鼠标所在位置的颜色

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