[Effect] SplashForm

[The Swash]

Código [Seleccionar] Expandir

'------------------------------------------------
'| - [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 [Seleccionar] Expandir

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!

[ssccaann43 ©]

Interesante...!

[BlackZeroX]

Código (vb) [Seleccionar] Expandir


: GoTo Quit
End If

Quit:


mmm esta demás no?