标题让对话框弹出变得“温柔”

　　对话框对我们来说可谓太熟了，一般为用户提供一些信息，在做某一操作后突然弹出，但是你可曾想过，让它弹出的时候不要那么“鲁莽”，而有一种动画的效果呢，好吧！那让我们一起体验一下吧。
　　具体步骤如下：
　　在VB中新建一个EXE工程，在Form1中放TextBox控件，属性为默认值。Form1的属性设置为：Caption=“启动”、StartUpPosition=2、BorderStyle=None(0)、ScaleMode=Twip(1)。代码如下：
　　Const seep=Seep'在窗体层申明窗体变化速度常量
　　Private Sub Form_Load()
　　With Form1‘初始化窗体的大小
　　.Width=700
　　.Height=700
　　End With
　　With richtext '初始化TextBox控件的位置
　　.Top=300
　　.Left=300
　　.Width=Form1.Width-600
　　.Height=Form1.Height-600
　　End With
　　Timer1.Enabled=True '使定时器开启
　　Timer1.Interval=10 '设置间隔时间
　　End Sub
　　Private Sub Timer1_Timer()
　　With Form1
　　.Width= .Width + Seep '使窗口增大
　　.Height= .Height+Seep
　　.Top=Screen.Height\2 - .Height\2 '使窗体始终在屏幕的中央
　　.Left=Screen.Width\2 - .Width\2
　　If .Width > 3500 Then '判断窗体是否停止扩大
　　Timer1.Enabled=False
　　End If
　　End With
　　With richtext 'TextBox控件随着窗体的增大而增大
　　.Width=.Width + Seep
　　.Height=.Height + Seep
　　End With
　　Private Sub Text1_MouseDown(Button As Integer，Shift As Integer， x As Single，y As Single)
　　If Button = 2 Then End '按下鼠标右键，结束
　　End Sub
　　按F5试试吧！你会看到窗体在屏幕的中心慢慢展开，怎么样，够“温柔”吧？至于对话框的卸载，也可以用此法去实现，这里就不多说了！