Gracias por los comentarios .. talvez deje mas efectos en unos dias ..
Salu2 !
Salu2 !
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú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