Postada em 22/5/2006 por Jonas Ely
jonas_ely@zipmail.com.br
Abra um novo projeto no VB Coloque um Timer com Interval de 0 Coloque um Botão com o nome de command1 Na propriedade BorderStyle do formulário coloque 0-None Na propriedade StarUpPosition do formulário coloque 2 - CenterScreen e insire este código no View Code
Private Sub Command1_Click() Command1.Visible = False Timer1.Interval = 1 End Sub
Private Sub Form_Load() Form1.Height = 5500 Form1.Width = 5500 End Sub
Private Sub Timer1_Timer() Form1.Top = Form1.Top + 50 Form1.Left = Form1.Left + 50 Form1.Width = Form1.Width - 100 Form1.Height = Form1.Height - 100 If Form1.Height = 0 Then Timer1.Interval = 0 End End If
End Sub
Este código fara com que o formulário feche sozinho com um enfeite.
