Foro de elhacker.net

Option Explicit

Private Sub EfectoExplosion(ByRef frmFormulario As Form)
  Dim lngA As Long
  
  With frmFormulario
    .Width = 0
    .Height = 0
    .Show
   
    For lngA = 0 To 10000 Step 50
      .Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2, lngA, lngA
      DoEvents
    Next lngA
    
    End With
  
End Sub

Private Sub Form_Load()
    EfectoExplosion Me
End Sub

    For lngA = 0 To 10000 Step 50