Autor
Código:
'------------------------------------------------
'| - [Effect] SplashForm
'| - [Autor] The Swash
'| - [Web] http://www.Indetectables.net
'| - [Date] 22/03/2010
'------------------------------------------------
Public Function SplashForm(hForm As Form) As Long
Dim hTop As Long
Dim hLeft As Long
hTop = hForm.Top
hLeft = hForm.Left
If hForm.WindowState = 0 And hForm.Visible = True Then
For i = 1 To 60
hForm.Top = hForm.Top + 120
hForm.Left = hForm.Left + 120
hForm.Top = hTop
hForm.Left = hLeft
DoEvents
Next i
SplashForm = 1
Else
SplashForm = 0: GoTo Quit
End If
Quit:
End Function
Call:
Código:
Call SplashForm(Form1)
Bueno esta idea me salio de algun lado pero no recuerdo donde xD, simplemente leo las bases del top y left, aumento los mismos en bucle y se restauran para que vuelvan al mismo sitio, dio un efecto de Zumbido muy parecido al del MSN espero les guste a pesar de lo simple
Salu2!
En línea
