新制的取色器(含源码及说明)

取色器，VB，源代码，教你如何使用PrivateDeclareFunctionFillRectLib"user32"(ByValhdcAsLong,lpRectAsRECT,ByValhBrushAsLong)AsLongPrivateDeclareFunctionCreateSolidBrushLib"gdi32"(ByValcrColorAsLong)AsLongPrivateDeclareFunctionDeleteObjectLib"gdi32"(ByValhObjectAsLong)AsLongPriva