Vb恶搞程序源代码屏幕抖动下雪

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