by Tomer Cohen (2 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 16th October 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Unload a form in a very Fancy way, it collapses the form and then streches it over the screen! Must See
Private Sub Form_Unload(Cancel as Integer)
Dim counter as Integer
Dim I as Integer
counter = me.Height
'Collapse Form
Do: DoEvents
counter = counter - 10
me.Height = counter
me.Top = (screen.Height - me.Height) / 2
Loop Until counter <= 10
I = 15
counter = me.Width
'Strech form to edges
Do: DoEvents
counter = counter + I
me.Width = counter
me.Left = (screen.Width - me.Width) / 2
I = I + 1
Loop Until counter >= screen.Width
End
End Sub
No comments have been posted about Unload a form in a very Fancy way, it collapses the form and then streches it over the screen! Must. Why not be the first to post a comment about Unload a form in a very Fancy way, it collapses the form and then streches it over the screen! Must.