全局代码
<DllImport("user32.dll", EntryPoint := "AnimateWindow")> _
Public Function AnimateWindow(handle As IntPtr, ms As Integer, flags As Integer) As Boolean
End Function
Public Const AW_HOR_POSITIVE As Int32 = &H1
Public Const AW_HOR_NEGATIVE As Int32 = &H2
Public Const AW_VER_POSITIVE As Int32 = &H4
Public Const AW_VER_NEGATIVE As Int32 = &H8
Public Const AW_CENTER As Int32 = &H10
Public Const AW_HIDE As Int32 = &H10000
Public Const AW_ACTIVATE As Int32 = &H20000
Public Const AW_SLIDE As Int32 = &H40000
Public Const AW_BLEND As Int32 = &H80000
调用代码
e.Form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
AnimateWindow(e.form.Baseform.Handle, 300, AW_HIDE + AW_CENTER)
e.form.Close
参考资料 http://www.cnblogs.com/KeenLeung/archive/2013/05/19/3087728.html