A !! Cool Form Close Effect !!
This is a cool closing effect for your app. Tell me watcha think!!
Original Author: Ryan Olson - OLSONAMI
Assumptions
you need to add a Form_Unload() into your code.
Code
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Me.WindowState = 0
Do
Me.Top = Me.Top + 10
Me.Left = Me.Left + 10
Me.Width = Me.Width - 20
Me.Height = Me.Height - 20
Loop Until Me.Top => Screen.Height
'you can change those numbers to make it faster
'or slower. right now it is pretty slow.
'if the height and width #'s are twice as much
'as the top and left #'s, it will make a
' "zooming out" effect and then will fall to the
'bottom of the screen.
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.