Sunday, September 19, 2010

Cool Form Closing Effect

Just a snippet I wrote. Put this code in Form Unload event to test.

'---
Dim i As Long
Me.Top = (Screen.Height / 2) - (Me.Height / 2)
Me.Left = (Screen.Width / 2) - (Me.Width / 2)
For i = Me.Left To (Screen.Width / 2) Step 10
Me.Height = Me.Height - 15
Me.Width = Me.Width - 20
Me.Left = Me.Left + 100
DoEvents
Next
Unload Me
'---

2 comments:

Related Posts Plugin for WordPress, Blogger...