VBWEB - Efeito no Formulário

USUÁRIO: SENHA:

SALVAR LOGIN ?


	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


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site