Autor
Hola gente pues esta vez vengo trayendo un code que nos da un efecto al abrir el Form (se abre desde el centro del form y se va expandiendo):
Código:
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
Para hacerlo mas dinamico (rapido) el efecto .. cambiamos la cantidad de esta linea:
Código:
For lngA = 0 To 10000 Step 50
Salu2 si desean mas efectos solo me lo dicen en este post = )
En línea
. Creo que 79137913 había posteado algo parecido, solo que el lo habia hecho con un timer
