V.I.P
Data inscrierii: 29/Aug/2007
Mesaje: 50
Localitate: -=Aici=-
|
|
Va trebui
- 1 label
- 1 timer
| Cod: |
Private Sub Form_Load()
Label1.Caption = "Mortal Team- Hack team "
Timer1.Enabled = True
Timer1.Interval = 300
End Sub |
| Cod: |
Private Sub Timer1_Timer()
Dim str As String
str = Form1.Label1.Caption
str = Mid$(str, 2, Len(str)) + Left(str, 1)
Form1.Label1.Caption = str
End Sub |
Credits: Duster |
_________________
Lamer
Me |
|
