|
|
| |
|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Forms/MDI)
|
|
 |
Título da Dica: Efeito no Formulário
|
 |
|
|
|
Postada em 15/5/2006 por Jonas Ely
jonas_ely@zipmail.com.br
Abra um novo projeto no VB
Coloque um Timer com Interval de 1
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 Form_Load()
Form1.Width = 0
Form1.Height = 0
End Sub
Private Sub Timer1_Timer()
Form1.Left = Form1.Left - 50
Form1.Top = Form1.Top - 50
Form1.Height = Form1.Height + 100
Form1.Width = Form1.Width + 100
If Form1.Height = 4000 Then
Timer1.Interval = 0
End If
End Sub
|
|
|
|
|
|
|
|
