|
|
|
![](images/pasta_topo.gif)
|
![](images/folha.gif)
|
Dicas
|
![](images/folha_fim.gif)
|
Visual Basic (Forms/MDI)
|
|
![](images/box01esqsup.gif) |
Título da Dica: Deixando titulo do form animado
|
![](images/box01dirsup.gif) |
|
|
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
|
|
|
|
![](images/hosted.gif)
|