VB编程下雪窗口抖动

摘要:VB源码,图形处理,VB恶搞程序,屏幕抖动　　再分享一个Vb恶搞程序，屏幕抖动下雪，下雪API声明（摘录）：　　GetDC()功能是获取指定窗体的设备场景的句柄(hDC),用参数0则可以获取整个屏幕的场景句柄　　GetPixel用于取得场景(这里是整个屏幕)中某点的颜色值　　释放由GetDC()获取的设备场景句柄，否则可能造成系统锁死　　定义“区域”数据结构，但实际上并没有用到，因为仅需在函数InvalidateRect中传递一个空的RECT参数　　Dimrect1AsRECT　　PrivateConstScrnWidth=1024‘屏幕宽度(单位:像素)　　PrivateConstScrnHight=