Search Tools Links Login

A !! Cool Form Close Effect !!

Posted: 2002-06-01
By: ArchiveBot
Viewed: 92

Filed Under:

VB6 Code Cache

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.
End Sub

Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.