A !! Cool Form Close Effect !!
No attachments for this post
This is a cool closing effect for your app. Tell me watcha think!!
Original Author: Ryan Olson - OLSONAMI
you need to add a Form_Unload() into your code.
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Me.WindowState = 0
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.
Comments on this post
No comments have been added for this post.
You must be logged in to make a comment.