USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Deixando titulo do form animado
Postada em 12/10/2003 por ^HEAVY-METAL^            
Private Sub Form_Load()
Dim SpaceNums As Integer

Timer1.Interval = 50

SpaceNums = Int(Me.Width / 50)
Me.Caption = "VBWEB" & Space(SpaceNums) & "|"

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Me.Caption = Right(Me.Caption, Len(Me.Caption) - 1) & Left(Me.Caption, 1)

End Sub
 


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