• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Explode effects

Explode effects

Explode effects

Rate Explode effects

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' * Programmer Name  : Waty Thierry
' * Web Site         : www.geocities.com/ResearchTriangle/6311/
' * E-Mail           : [email protected]
' * Date             : 13/10/98
' * Time             : 10:24
' * Module Name      : Form_Module
' * Module Filename  : Form.bas
' **********************************************************************
' * Comments         : Explode effects
' *
' **********************************************************************

Sub Explode(frm As Form)
   frm.Width = 0
   frm.Height = 0
   frm.Show
   For x = 0 To 5000 Step 250
      frm.Width = x
      frm.Height = x
      With frm
         .Left = (Screen.Width - .Width) / 2
         .Top = (Screen.Height - .Height) / 2
      End With
   Next x
End Sub