module1.bas

颜色拾取器

Attribute VB_Name = "Module1"
Option Explicit
Type pointapi
 X As Long
 Y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As pointapi) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long