vb程序屏幕飘雪！！！

'源代码PrivateDeclareFunctionGetDCLib"user32"(ByValhwndAsLong)AsLong'GetDC()功能是获取指定窗体的设备场景的句柄(hDC),用参数0则可以获取整个屏幕的场景句柄PrivateDeclareFunctionGetPixelLib"gdi32"(ByValhdcAsLong,ByValxAsLong,ByValyAsLong)AsLong'GetPixel用于取得场景(这里是整个屏幕)中某点的颜色值PrivateDeclareFunctionSetPix