-------------------------------------------------------------------------------------------------------

                                         黑客动画吧
                                    http://www.hack58.com
                                致力于中国最专业的黑客安全站点
                                    黑客动画吧，有你更精彩
                                      免费学习黑客黑客技术
                                         成为黑客不是梦。
                                    打造国内最大的黑客动画网站
-------------------------------------------------------------------------------------------------------

大家好~我是冰火。今天给大家做个VB美化动画..显示一个由小变大的弹出窗体 .我做好了一个，先看一下效果……
（但是用屏幕录象专家看不出来好效果，下去你们自己做一下看）

现在开始，看我操作  我晕 不用操作了 假如代码就可以了 代码我会给大家打包的

是不是有点快，可以调慢一点

Explode Me, 5000 修改一下5000这个值 ，值越大越慢。。最大的值=32767 再大就益出了

（教程就到这里了，不浪费大家的时间了。代码有什么不明白的+我的QQ：444914942。我会为大家解释的）888888888

代码:
Option Explicit
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Sub Explode(Newform As Form, Increment As Integer)
Dim Size As RECT
GetWindowRect Newform.hwnd, Size
Dim FormWidth, FormHeight As Integer
FormWidth = (Size.Right - Size.Left)
FormHeight = (Size.Bottom - Size.Top)
Dim TempDC
TempDC = GetDC(ByVal 0&)
Dim Count, LeftPoint, TopPoint, nWidth, nHeight As Integer
For Count = 1 To Increment
    nWidth = FormWidth * (Count / Increment)
    nHeight = FormHeight * (Count / Increment)
    LeftPoint = Size.Left + (FormWidth - nWidth) / 2
    TopPoint = Size.Top + (FormHeight - nHeight) / 2
    Rectangle TempDC, LeftPoint, TopPoint, LeftPoint + nWidth, TopPoint + nHeight
Next Count
DeleteDC (TempDC)
End Sub
Private Sub Form_Load()
Explode Me, 5000
End Sub