• Home
 · 
• Graphics
 · 
• Unload a form in a very Fancy way, it collapses the form and then streches it over the screen! Must

Unload a form in a very Fancy way, it collapses the form and then streches it over the screen! Must

Unload a form in a very Fancy way, it collapses the form and then streches it over the screen! Must See

Rate Unload a form in a very Fancy way, it collapses the form and then streches it over the screen! Must

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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