点击表单关闭按钮如何实现像关闭金山新毒霸的关闭效果？    *在表单内点击按钮我已成功实现了*

呵呵  只是效果  显示软件的更专业 制作更好~

经测试---成功
在表单的QueryUnload 下编写：
If Messagebox("确定要退出系统吗？",1+32,"系统")=1
    Nodefault
    Thisform.MinHeight=1
    Thisform.timer1.Interval=1
Else
    Nodefault
Endif
在Timer1的Timer 下编写：
Thisform.AutoCenter=.T.
If Thisform.Height=0
    Thisform.timer1.Interval=0
    Thisform.Release
Else
    If Thisform.Height>10
        Thisform.Top=Thisform.Top+5
        Thisform.Height=Thisform.Height-10
    Else
        If Thisform.Height>4
            Thisform.Top=Thisform.Top+2
            Thisform.Height=Thisform.Height-4
        Else
            If Thisform.Height>2
                Thisform.Top=Thisform.Top+1
                Thisform.Height=Thisform.Height-2
            ELSE
                Thisform.Release
            Endif
        Endif
    Endif
Endif

经测已通过