Imprimir Página - [Effect] SplashForm

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!

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: The Swash en 22 Marzo 2010, 18:05 pm