更正：效果：屏幕剥落

　　感谢网友Farproc发现了我在《效果：屏幕剥落》中DC资源泄露的问题，现作如下修改：

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

下加上一句：

Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long

并将

BitBlt Me.hdc, 0, 0, Screen.Width, Screen.Height, GetDC(GetDesktopWindow()), 0, 0, SRCCOPY

修改为：

Dim lHwnd As Long
Dim lDC As Long
lHwnd = GetDesktopWindow()
lDC = GetDC(lHwnd)
BitBlt Me.hdc, 0, 0, Screen.Width, Screen.Height, lDC, 0, 0, SRCCOPY

　　即可~不过这样的问题大家也最好注意一下，以免放我同样的错误。当然，我也会尽量避免同样的错误再次出些，最后真诚的感谢Farproc和其他观看本文的网友对我的支持！

最终通过环境：VB6+Win2000