Forma 2

Y esto en el otro boton (Desabilitara el form siempre visible)

En el boton pondras ...

En el primer timer pondras lo siguiente ( el intervalo del timer uno es igual a 1)

Form1.Top = Form1.Top + 60 Timer2.Enabled = True

En el timer 2 pondras lo siguiente ( el intervalo de tiempo deve de ser de 10000 para que de tiempo que el efecto termine)

En el timer deveras poner lo siguiente .. ( el intervalo del timer deve de ser de 1 )

Me.Width = Me.Width - 30 Me.Height = Me.Height - 30 Form1.Top = Me.Left - 5 Form1.Left = Me.Top - 5 If Me.Width = 1680 Then Me.Hide End End If

Y en el command pon esto..

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMill) Private Sub Form_Load() ExplodeForm Me, 20, 2 End Sub Sub ExplodeForm(frm As Form, Optional ByVal lNumSteps As Long = 25, _ Optional ByVal lStepDuration As Long) Dim sngLeft As Single, sngTop As Single Dim sngHeight As Single, sngWidth As Single Dim sngNewHeight As Single, sngNewWidth As Single Dim sngHeightStep As Single, sngWidthStep As Single Dim iStep As Long On Error Resume Next If frm.WindowState <> vbNormal Then Exit Sub sngLeft = frm.Left sngTop = frm.Top sngHeight = frm.Height sngWidth = frm.Width sngHeightStep = sngHeight / lNumSteps sngWidthStep = sngWidth / lNumSteps For iStep = 1 To lNumSteps sngNewHeight = sngNewHeight + sngHeightStep sngNewWidth = sngNewWidth + sngWidthStep frm.Move sngLeft + (sngWidth - sngNewWidth) / 2, _ sngTop + (sngHeight - sngNewHeight) / 2, sngNewWidth, sngNewHeight frm.Visible = True frm.Refresh Sleep lStepDuration Next frm.Move sngLeft, sngTop, sngWidth, sngHeight End Sub

code..

Command1.Visible = False Me.BackColor = vbBlack Me.FontSize = "15" a = "0" Do a = a + 1 b = Int(Rnd * 5 + 1) If b = "1" Then Me.ForeColor = vbRed If b = "2" Then Me.ForeColor = vbBlue If b = "3" Then Me.ForeColor = vbWhite If b = "4" Then Me.ForeColor = vbGreen If b = "5" Then Me.ForeColor = vbYellow Me.CurrentX = Int(Rnd * Me.Width + 1) Me.CurrentY = Int(Rnd * Me.Width + 1) Me.Print "|" Loop Until a = "10000" Me.Cls Command1.Visible = True

GotoVal = Me.Height / 2 For Gointo = 1 To GotoVal DoEvents Me.Height = Me.Height - 10 If Me.Height <= 11 Then GoTo horiz Next Gointo horiz: Me.Height = 30 GotoVal = Me.Width / 2 For Gointo = 1 To GotoVal DoEvents Me.Width = Me.Width - 10 If Me.Width <= 11 Then End Next Gointo End

En el timer pon lo siguiente ..(el intervalo del timer puede ser a tu gusto pero recuerda ponerlo, si le pones 1 sera mas rapido el cambio)

Static Col1, Col2, Col3 As Integer Static C1, C2, C3 As Integer If (Col1 = 0 Or Col1 = 250) And (Col2 = 0 Or Col2 = 250) And (Col3 = 0 Or Col3 = 250) Then C1 = Int(Rnd * 3) C2 = Int(Rnd * 3) C3 = Int(Rnd * 3) End If If C1 = 1 And Col1 <> 0 Then Col1 = Col1 - 10 If C2 = 1 And Col2 <> 0 Then Col2 = Col2 - 10 If C3 = 1 And Col3 <> 0 Then Col3 = Col3 - 10 If C1 = 2 And Col1 <> 250 Then Col1 = Col1 + 10 If C2 = 2 And Col2 <> 250 Then Col2 = Col2 + 10 If C3 = 2 And Col3 <> 250 Then Col3 = Col3 + 10 Label1.ForeColor = RGB(Col1, Col2, Col3)